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Domande Risposte 

DOKIVMDE KKB021E 


Da telefonate ricevute sono emersi al- 
cuni elementi che volentieri rimettia- 
mo all'attenzione dei lettoni perchè di 
interesse generale. 


Shopping in Usa... 

* ] computer Commodore, (e qualsiasi 
altro computer o videogioco da cotlegare 
al televisore domestico), acquistato negli 
Stati Uniti non può funzionare m Italia. 
Ciò è dovuto al fatto che negli Usa il 
sistema usato è l'NTSC profondamente 
diverso da quello italiano (P A L). Lo ten- 
gano ben presente quei lettori che, re- 
candosi negli States, pensano di lare un 
affare acquistando computer, videoregi- 
stratori, vtdeogiocht eccetera. 

Tentando di col le gare uno di Cali appa- 
recchi con il proprio televisore si ha la 
sgradita sorpresa di notare l'assenza del 
colore, degli effetti sonori ed un accen- 
tuato e fastidioso tremolio di dò che ri- 
mane deirimmagme. 

Si ricorda, se non bastasse, che non 
sono disponibili in Italia i circuiti integra- 
fi che consentono la trasformazione nel 
modello europeo. 


... e in Inghilterra 

■ Chi acquista un computer in I nghilterra 
può avere problemi per ciò che riguarda 
la perfetta sintonizzazione dell’alta 
frequenza. 

In ogni caso, ricordate che i computer 
acquistata all’estero non godono della ga- 
ranzia in Italia. 


Registratori che non 
leggono 

* Alcuni registratori leggono determina- 
ti programmi alto no, non per questo 
devono ritenersi difettosi. L'inconve- 
niente risiede nel non perfetto allinea- 
mento delie testine di cancellazione e re- 
gistrazione / lettura. 


Il telefono di Computer Club 

* Commodore Computer Club è a dispo- 
sizione dei propri lettori nei pomeriggi di 
giovedì e venerdì di ogni settimana (Tel. 
*>2/8467 34 * il 


Fascicoli esauriti 

* Sono esauriti i numeri 1, 2 e 7 di Com- 
modore < ’omputer Club. Pertanto, e 
mutile richiederli, nò è possibile, da par- 
te nostra, effettuare fotocopie dei 
fascicoli. 


Le varie versioni del 64 

* Esistono diverse versioni del Commo- 
dore 64. La più vecchia di queste è quella 
che richiede la colorazione della cella vì- 
deo se si tema di usare l'istruzione PO- 
KE relativa allo schermo. 

Per sape re se il proprio 64 è un vecchio 
modello eseguire nell ordine: 
cancellate lo schermo; 
posizionatevi qualche rigo più in basso 


col tasto C’RSR Down; 
eseguite POKE 1024,1 
Se nell'angolo in alto a sinistro appare 
la lettera A il vostro è un nuovo modello. 
Se invece siete costretti a battere POKE 
55296,0 pei farla apparire, vuol dire che 
siete in possesso del vecchio modello 


I nuovi Vie 20 

• I nuovi Vie 20 m differenziano dai pre- 
cedenti esclusivamente per la colorazio- 
ne piu chiara del contenitore di plastica e 
per la ridotta dimensione del circuito 
stampato che utilizza un minor numero 
di componenti, Le potenzialità sono in 
vece rimaste immutate 


Nuova unità a floppy,,. 

• L unita a dischetti 154(1 non è piu in 
produzione da diverso tempo. La sosti 
luisce la 1541 che va eguJ^eme bene, 
sia per il Vie 20 (con o senza es,.*. >ne ) 
che col Commodore 64. 


...e vecchie stampanti 

* Le stampanti 1515 e 1526 non sono più 
prodotte. La MPS801 si può collegare 
indifferentemente al Vice al 64 


A, ìht Simunc 
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100 PRINTCHR*< <HBS<C0S<23J )#1E3V3-3E1) 
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Riservato 
agli ingegneri 

Il miglior software tecnico 
su elaboratori 
CBM - Commodore 
Ora anche disponibile su 
Commodore 64 

“S.S. - 8” 

L'ormai famoso programma per il calcolo delie strutture in- 
telaiate piane in c.a.. in zona sismica, che sviluppa e dise- 
gna anche le carpenterie delle armature, 

(Ultima versione Lugtio/1902 nostra esclusiva), 

“FONDAZIONI” 

Risolve tutti i problemi di fondazioni (trave elastica su suo- 
lo elastico) di strutture in c,a. in zona sismica e non, risol- 
vendo l'intero graticcio di fondazione e proponendo una 
carpenteria sofisticata ed ottimizzata, 


“MURI DI SOSTEGNO” 

A gravila, a mensola o a contrafforti, anche in zona sismi- 
ca, secondo il D.M, del 21/1/1981. 

“PENDI!” 

Analizza la stabilità di un pendio o di un fronte di scavo sot- 
to diverse condizioni e la verifica relativa viene condotta in 
termini di tensioni effettive; la stima dei fattori di sicurezza 
viene effettuata secondo i metodi di Feilenius, Bishop e 
Jambu. 


“COMPUTI METRICI” 

Analisi ed elenco prezzi Metodo veloce e completamente 
automatizzato per il computo e la stima dei lavori 

“REVISIONE PREZZI” 

Secondo le disposizioni di legge vigenti. Praticità ed auto- 
mazione consentono di eseguire velocemente revisioni di 
prezzi anche per lunghi periodi. 

Richiedeteci documentazione e output dei pro- 
grammi di vostro interesse , Resterete sbalorditi 
dalla versatilità e dalla completezza del nostro 
software. 


SJRANGELO COMPUTER Srl 


Via Parisio, 25 * Cosenza 0984-75741 

NEW NEW NEW NEW NEW NEW NEW 
È pronto il nuovissimo programma 
"ORARIO SCOLASTICO” 
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UMICA IIQHi AZMHDALE SI EVOLVONO. 
SUPPORTI MAGNETICI 3M. 

NZIONE AL FRIMAIO TECNOLOGICO. 



SISTEMI PER L'UFFICIO 3M.LA PERFEZIONE DELLA SPECK. 


I primo nastro per 
computer è stato 
prodotto dalla 3M 
nel 1952. Un primato 
che ha consentito la 
realizzazione dei 
supporti magnetici più 
affidabili e sicuri. 

Le Diskette 3M, 
ad esempio. Omo 
dai maggiori cosi 
Certificate al 

Garantite 5 ann/E sportate 
in tutto il moneto. Prescelte come 
riferimento Lmemazionale da ECMA, 
ISOed ANSI. Una gamma completa 

iskette 8 pollici che per le 
kette 5 pollici e un quarto. 

Le Diskette 3M, grazie all'esclusivo 


rivestimento magnetico, 
garantiscono 
un'eccezionale resistenza 
ai l’usura c la massima 
affidabilità. 

La stessa affidabilità 
che offrono tutti i 
Supporti Magnetici 3M: 
Nastri per Computer, 
Dischi Magnetici, 

Data Cartridge. 

Le Diskette e i Nastri Magnetici 3M 
sono interamente fabbricati in Italia c 
questo significa immediata reperibilità 
e migliore assistenza. 

Assistenza e consulenza tecnica 
che il Cliente trova presso le 8 filiali, 
i venditori diretti e 400 distributori 3M. 
in tutta Italia. 



Copiatori 


Sistema Visual 


Microfilm 


TcJec spiatori 


Desidero ricevere ulteriori informazioni 
sui Supponi Magnolia 3M 


Nome 


n 

i 


A ziendii 

p Via 

Cup Citta _ 

ctt 

R itagli, tre c spedire a 
3M Italia S p A -Linea Diretta- 
Casella Postale E04Ì 1/10412*201 Iti Milano 
Oppure telefonare a 02/75451 
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VIC stanno andando a ruba... e fatti turbo: 
porta con te un amico e dividi con lui il 
costo delle cartucce; così ne porti via un 
mucchio, tutte originali, già pronte per 
giocare... e durano un secolo! 


Divertimento doppio per il tuo VIC 20! 
Oggi paghi 2 games e ne prendi 4, 
scegliendoli nella vasta gamma dì giochi 
che trovi dal tuo rivenditore Commodore. 
Ma affrettati, perchè i favolosi giochi del 



del VIC 20 



(...li scegli tu. 4 games al prezzo di 2) 

* Validità fino al 30 giugno 1 984 
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V. 


Con VIC 20 giocare è un affare. 

Per altre informazioni, telefonaci subito: 
02-618321. 

Commodore Italiana S.p.A. 


Commodore 

COMPUTER 


JOTH 

I * k 
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V ic 20 Senza Espansioni 



GLI 


G ira su Vie 20 non espanso e ri- 
chiede l'uso del joystick. Per giocare, 
non appena caricato il programma, 
alzare il tasto PLAY del registratore; 
altrimenti la routine di gestione del 
joystick non funziona, 

L e costanti modificabili sono: 

NU - numero Ufo da abbattere per 
compiere la missione; 

NU - 15 (a linea 130); 



FU - litri di carburante a disposizio- 
ne; 

FU - 2500 (a lìnea 200); 

MU ■ munizioni per N scariche; 

MU - 60 (a linea 200); se modificata 
va indicata come multiplo di 5 (esem- 
pio: 55, 50,65,60 ecc.). 

Descrizione del gioco 

S iete in missione con il vostro aereo 
e 15 Ufo vi attaccano (fortunatamen- 


te uno alla volta), avete 2500 litri di 
carburante (futi) e munizioni per 60 
raffiche. Usate il joystick come una 
cloche d'aereo (in alto e in basso) e, 
naturalmente, il Tire button per spa- 
rare. IL consumo di carburante varia 
con le manovre che fate. In particola- 
re la cabrata (salita) è la più dispen- 
diosa. 

C iascun Ufo che vi sì presenta da- 
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vanti repentinamente cambia di con* 
tinuo posizione, lanciando raggi la- 
ser che dovrete evitare non rimanen- 
do troppo sulla sua direttrice e spa- 
rando prima di lui. 

Se venite colpiti per tre volle, l'ae- 
reo precipita e sui rottami gli Ufo 
superstiti passeranno uno alla volta 
sopra di voi. Lo stesso avverta se 


finirete il carburante o te munizioni. 

Se invece abbatterete i 15 Ufo, il 
vostro aereo atterrerà felicemente e 
la missione sarà compiuta. In ogni 
caso viene registrato il numero piu 
alto di Ufo abbattuti per permettere 
sfide tra più concorrenti. 

1 1 gioco è congegnato in modo da 
sfruttare la prontezza di riflessi e 


l'aggressività del pilota che porterà a 
termine la missione solo se adotterà 
una tattica di continuo attacco- Oc- 
chio omumjue al carburante ed alle 
munizioni: cercate di non muovere 
troppo l'aereo e di mirare giusto per 
non sprecare entrambi. 

Buon divertimento! 

Gmifrancu Vanni 

Tel. 06/851587 


100 REM * UFO PER VJC SO I NE3PBNS0 * 

110 REM GIANFRANCO VANNI - TEL. 0G 85 1587 
120 : 

140 SE =388 76 i Si = S2 + 1 s VL™S 1 + 1 :SC=VL+Ì ! POKEVL , 4 : POKES 1 , 1S0 : F0KES2 , £50 
158 PR INT"a" spRINTTABC 30) "SI U F O "SPRINT"®! BY G * F * VANNI 1384" 
180 PR INTIMI B NU“UFO TI ATTACCANO " * 

PRINTSPCC 5 STRUGGILI 1 ! " ■ GOSUB730 

178 PR tNTLEFT*< H&, 1 0 > i PR I NTSPCC 20) fl» 

189 PR INTLEFTS^ HS , 17 USA IL JOY STICK" S 
FRlNT h jffl at» ALTO */• BASSO 11 
130 PRINT n a k PREMI UN TASTO 11 : WA IT 133 ,255 ,8 = FQKESC ,£5 
200 CQ-0 INI « 1801 MU=60 * FU=50OO 1 K = 7G30 J OF =30720 ; 

H= 10 5 PR INT M «J aa u F 0 M 

2 10 PR INTH^ N || * :GOSUBB00i 

FR INT "HBdUNlZ IONI HI SCORE 

238 FORT-* 1TOHU/5:POKE3 163 + T r 90 : F0KE3 163 + DF +T,6:NEXT 
243 IFFU<0TH£NFU=0 

250 PRlNT H MUnJF0= M U H 9 ^UEL” UHM 1 ’ ; FU 11 3" * I FFU fi 0 THEN5 S& 

£CG IF U< NUTHEN3S0 

£70 GOSUE83eiO = >l 5GOSUB730S IFHOTHEN270 

230 GOSUBS80 5GOSUB8 10i IFFK 15THENE80 

230 t ~Z - 1 5 FORL - 1 TOS : GG3UD35® : GQSUB830 5 NEXTL 

300 FRINTH$"JS B4I3S 1 ONE COMP IUTA !! 11 s POKES 1 ,0 

3 38 FORJ -4^C0S^EP- 1 = POKEVL, Z * GOSUB880 * NEXT* P0KES2 ,0 

329 ^ORH=0TO1 i POKEVL ; 15 S FQRZ -0TO3 s RE AGO ,K 

338 PQK.E5S f 0 5 FORT* 1T0K 2 NEXTiNEXTZ s FORL- 15TO0STEP- # 8 

3 40 PQKEVL ,L :FORT= ITO 100: NEXTiNEXTL 


350 
360 
370 
380 
390 
400 
4 10 
4E0 
430 
440 


NEXTHt POKESS /0: RESTGRE : GQTO5S0 

Q = PEE.K< 37 137 ) +PEEKC 37 1 52 ) ‘ > 

IFMU< -0THENPOKEB 164 ,32 : PR !NTH*“IBÌf1UNIZ IONI FINI TE 11 1 GOTO580 

IF Q =368 AND H > 1 THE NO = - I : FU^FU» 15 : NI =N 1 +4 : GQSUB 
IF Q=365ANDH< 1 3 THE NO 59 + 1 ■ FU = FU - 10 t N 1 =N 1 -4 : 0 JSUB 730 
POKES 1 ,N1 : F = PEEKC 37 137 > : IFF fc 94THENB 1© 

□ *INT< RND< 1 )*J50> : I FO > 1 BORO< 40R0 =OFTHEN£40 


1 POP «0THEN560 
PR INTLEFT4K H*,OP+l > 
PR INTLEFT*C H*,GP+ 1 > 



; GOSUB7S0 
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1*50 n~PEZ«. K“ 13)0 1 I7THEN5G0 

prr d: k - : 3 > , 4 £ * pqkek +qf - 1 3 , £ * Gosuereo : co =co + 1 

470 rr^Of^THENPOKEK* 13,2 1 7 : GOTO560 

438 POKES2,0 3GOSUD8S0!Di=4 M SGSUB730 S IFHK ÌBTHEN4S0 

438 PGKEG1 ,22esP0KEVL, 1 5 i FORL- Ì5TO0STEP-1 

500 POKEVL , L s R0KESG , 42 : POKETR ,33“ . 2 SPORT = ITO Ì® 

7 10 f EXT : POKCSC , 127 s POKETR ,3S + ,£ s FORT= 1 TO 15 : NEXTT,L : POKETR ,3S i FOKESC , £3 

538 GOSUO7G0 i PR 1 NTH$ 11 Ul "SPRINT” [IRB6FITTUTQ H! 

330 FORZAI TGfJLHU 

F0RL = I TO I - 1 1 3TEF - 1 s POKEL , 0 1 S F OKEL +DF , 0 * G0SUBS83 * 

POKEL ,32 i NEXT - GQSUBS80 
578 htttTZ :GOTQ5S0 

578 r *7660+21 J'OtSS ! POKE I ,81 SFOKEI + DF ,0 S FOKEK ,32 ! K = I s OF =0 i FU =Fu-5 s GOT0240 

570 PR |N T H^ rr S CARBURANTE FINITO * • 6GTG48G 

530 POKEVL ,0JPOKE 133,0 SWfl IT13S , I 

730 I “U >H I THE! im I -U 

POG U=0sZ*0lOP»0lGOTOg03 

" 1 0 MU *tfU-l iF0RXXMTQ3SPRINTLEFT$< H$,H+4 J "k lilMillil * ” 

6- 30 P0KEe ie3+ INT< 2 + r tU/5 ? , 32 i 8 E ~32“E ; 603UB73G s 32 -SE 

630 1FPCEKX 7683+2I +( H + 3> *22 X : S I THENGOSUB30© i NEXT s G0T0240 
640 PU=7G30+£1 +< I ? + 2 i 422 sPGKEFU ,<£ 

650 i? OKEPLJ+P , “ 2 2 GF =0 

GCO PP ’KrrtJ^FTflft H* .H44 ) M — — »*« 

7^0 NI »PEEKC E1 ) : 6QSU6760 : POKEVL ,4 s P0KE5 1 ,Ni 
r?3 Ff3RL=PIJT03 1 4 1ST2P22 : POKEL ,3 2 i POKEL ♦DF ,£ 

07=7 FORT - 1 TQ53 ! KEXT : POKEL ,32i NE>IT : GOSUBO00 

^83 Q0St<B7éi0sPOKÉVL./4iPOKESl ,N1 

710 POKEC 7£G0rgl+( H+3 >*££>, 32 

730 U’Ì1 + t i PR I NT ,f SMianU FO ■ »U « a 11 ÌG0TQ243 

770 PR!PrrLEFT^C H^,H+ I > : FORT- 1TCH : PR INT" * :r\EXT 

7- J0 K “D ! PR 1 NTL.FFT$< M*.H4 j ì iPR!NT h 5nM£m “SPRINT" A X8 SlOk s- 

753 PR I NT * " * PR IMT rt *2 — k”“* 5 RETURN 

7C0 FORESI ,££©: POKEVL, 1 5 " FGRL= 15TQ0STEP- 1 
770 POKEVL ,L sFORT* 1TO30: NEXTT tPOKES 1 ,0: RETURN 
780 POKEVL, 15 :FORT»£40TO£30STEP - 1 : PGKl.SE , T ~ NEKT 
730 PORT-230TOS40 s PQKES£ ,T : FOKLOSCTS ,250 1 

F0KE36S74 ,0 s POKEVL ,4 s RETURN 
083 P0KEBI4 1 , 1 £0 ! P0KE3 14 1 v£F ,5 S RETURN 

BIG PR iriTLEF^ Hr.H’f i ) ! FORT 3 1T04 :FR INTSF'CC Z ) » " U^‘AT 

3E8 K^N <Cr 7»Z 4 1 3 FRI NTLEFT^C HT,H ^ 1 > 

730 PR IN”SPC( Z > 1 g^i: " I PR INTSFCC Z > " XB KkV 

3^3 PP 1NTSPC< 7 > “ 5f%3 — K i PR I NTSPCt Z ) " 3 — ~V”*sRETURN 

P50 Z =^7 + l SPR INTLEFT*t H*,H + 1 ) 

360 PR INTSPCX 2 > " m . H i PR I NTSPCC Z > f ' Jk X8 «|ùk w 

n?0 FRI NTSPCC Z > " [TI kfl SÌ • : PR I NTSPC< Z ) “ 2 ~SMI — SÌ. * S RETURN 

330 FORT* ITO 100 :MEXT = RETURN 

090 DBTft237,700,£3E,700>£35,70O ,225,200,225, 

700,535,700,237,700 ,£35 ,£00,0,0 
3C3 pr? llsrrt.FFTa^ WX,I^4)" HIHWI RETURN 

riAnv, 
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Commodore 64 e Vie 20 


La Gestione 

DEI FILE 

Su Cassetta 


N on è raro incontrare dei proble- 
mi nella gestione degli archivi su cas- 
setta. Eccezioni e particolarità di co- 
mando si mescolano: per rutente Ine- 
sperto talvolta la sensazione è quella 
di trovarsi In un inestricabile labirin- 
to di regole* 

Passo a passo (e comando per co- 
mando), ecco un quadro sinottico che 
potrà essere utile a tutti: una tabella 
da conservare accanto alla tastiera e 
consultare ogni volta in caso di 
dubbio. 


specificando altro, per cui automati- 
camente avverrà una lettura sul regi- 
stratore a cassette- Se si sta operando 
in modo diretto,, e non è stato premu- 
to il tasto PLAY sul registratore, ap- 
pare il messaggio PRESS PLAY ON 
RECORD. Se il comando è inserito 
nei contesto di un programma e il 
tasto del registratore è abbassato, 
non appare alcun messaggio. Ciò è 
utile per non sporcare maschere e 
frasi eventualmente presenti sullo 
schermo. 


RI-: leggerà solo quello, ignorando i 
programmi Basic, FILE con altri no- 
mi o non battezzati. A fermarlo adii 


sua ricerca 


vira essere solo il con- 
trassegno EOT (END OF TAPE = 
fine del nastro). Un accorgi mento: 


fare molta attenzione a battezzare i 
file. Se ad esempio il computer doves- 
se incontrare un file chiamato *NLi- 
MERINI- lo accetterà ugualmente, 
ìn quanto ^NUMERI* fa parte della 
parola. 


Lettura dei dati 

OPEN 

A questo comando U sistema operati- 
vo noti può che rispondere con un 
SYNTÀX ERROR. Bisogna sempre 
dare una specificazione ulteriore 
perchè la macchina possa elaborare i 
dati. 

OPEN 10 

1) numero rappresenta il valore iute' 
ro (compreso tra 1 e 255) con cui 
viene definito il file. Il numero del 
canale rappresenta, net caso specifi- 
co, il decimo di nome, non necessa- 
riamente quello di fatto. In pratica, il 
computer si predispone a leggere il 
primo file che gli capita a tiro sul 
registratone: lo definirà 10 indipen- 
dentemente da come era stato chia- 
mato sul programma di scrittura che 
ha generato il file stesso. Dopo il nu- 
mero non abbiamo messo una virgola 


OPEN 5,1 

Come per la sintassi precedente, il 
calcolatore apre un canale di lettura 
col registratore- Ai suoi esordi, lì 
Commodore era un calcolatore per 
hobbisti che non potevano permet- 
tersi altro che un registratore come 
memoria di massa. Per questo anco- 
ra adesso se i parametri di OPEN non 
vengono specificati (valori di PE- 
PA ULT), il riferimento al registrato- 
re è automatico. 

OPEN 5, IR 

* 

La collocazione di 0 in terza posizio- 
ne significa esplicitamente predispo- 
sizione per la lettura, (rii effetti sono 
identici a quelli del caso precedente. 

Scrittura dei dati 

OPEN 7,1,0, “NUMERI” 

U calcolatore va a cercare sul regi- 
strato re il file denominato «NUME- 


OPEN 1,1, “NUMERI" 

Qui si scopre che U numero in terza 
posizione non è poi così inutile come 
poteva sembrare. Al nostro comando 
compare infatti la dicitura SYNTAX 
ERKOR. Perchè? Perchè è impossi- 
bile chiedere di trattare un file dotato 
di nome senza specificare tutti e tre i 
parametri nelle loro esatte posizioni: 
LF (Logicai File), DN (Device Niuu- 
ber), SA (Secondar? Àddress). 

OPEN 1,1,1 A$ 

E’ possibile definire il file con una 
stringa predefinita. 

OPEN 7,1,1 

Sul registratore, il calcolatore si pre- 
dispone a scrivere i dati. Il valore I in 
terza posizione indica, infatti, il co- 
mando di scrittura e scri verà, al mo- 
mento della chiusura, un contrasse- 
gno finale di EOF (END OF RLE, 
fine del file). In pratica, quando da- 
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remo il comando Finale CLOSE 7, il 
computer scriverà* subito dopo T ul- 
timo dato inserito* il contrassegno 
EOF per ricordare* in fase di succes- 
siva lettura, che possono esservi altri 
file dopo quello, 

OPEN 7*1,2 

Il 2 in terza posizione indica che dopo 
l'ultimo dato verranno scritti sia 
EOF che EOT* I/uso di questo valo- 
re richiede attenzione. Supponiamo 
che in un nastro siano stati scritti 
l’uno dopo F altro tre file denominati 
-PRIMO-, «SECONDO** «TER- 
ZO- terminanti rispettivamente con 
EOF* EOT, EOF. 

Se in fase di lettura diamo il co- 
mando OPEN 1*1,0* «TERZO** il 
computer inizierà la sua ricerca. Poi- 
ché è chiuso da EOF, leggerà solo il 
nome del primo file senza esaminar- 
ne il contenuto. Arrivato a «SECON- 
DO* farà inizialmente lo stesso: ma 
giunto alla fine del file leggerà un 
EOT e invierà quindi il messaggio 
«FILE NOT FOUND ERROR** Fer- 
merà di conseguenza il motore del 
registratore interrompendo il pro- 
gramma, 

OPEN 3,1,1, “STRINGHE” 

Oppure* OPEN 1,1* LAS 
Analogamente a quanto visto in let- 
tura dati, si può dare al file un nome. 
Come visto* non è affatto necessario 
dare lo stesso numero di LF (Logicai 
File) in scrittura e in lettura. Sono 
quindi ugualmente compatibili* ad 
esempio, OPEN 25, 1,2 *DATT* in fa- 
se di scrittura e un semplice OPEN I 
in fase di lettura. E’ beta ricordare 
che non è possibile avere contempo- 
raneamente più di dieci flles aperti. 
Nota: il sistema operativo conforme 
mente alle caraneristiche del bus 
lEE-488 , privilegia, come visto, il 
file rispetto al device {= periferica}. 


Infatti, una volta stabilito il numero 
del file aperto * su cui decidiamo di 
operare, ci riferiremo , nel corso del 
programma , sempre al file e non al 
de vice le cui caratteristiche sono , del 
resto, state definite una volta per fune 
nel comando OPEN. 

Chiusura del file, 
alcuni casi 

CLOSE 

Per chiudere un file è sempre indi- 
s pensabile indicare il numero di rico- 
noscimento, À un comando senza al- 
tra indicazione di questo genere il 
computer risponde con un SYNTÀX 
ERROR. 

CLOSE I 

Finalmente. A questo punto il file che 
abbiamo aperto in lettura o scrittura 
viene chiuso. Se in fase di scrittura 
abbiamo posto come S.À. 1* verrà 
stampato EOF. Se abbiamo invece 
dato (con tutte le precauzioni del caso 
che abbiamo detto) un 2 in S. A. * allo- 
ra il sistema chiuderà il canale con un 
EOT. E’ comunque buona norma 
chiudere sempre i file con il comando 
CLOSE. Senza questo contrassegno* 
in fase di lettura potremmo altrimen- 
ti avere dei contrattempi. Questo in 
special modo se abbiamo usato un 
nastro su cui erano stati registrati dei 
dati. La mancanza di un close auto- 
rizza, infatti, la macchina a leggere i 
dati vecchi. 

Comandi di scrittura 

Attenzione: prima va sempre usato il 
comando OPEN* come illustrato in 
precedenza. 

PRINT *f- 

E il numero di file? Senza quello* 


ormai s*è capito, la macchina segnala 
un errore. 

PRINT # 1 

Attenzione anche qui* Con questo co- 
mando viene infatti stampato d la 
macchina un rigo vuoto. Può provo- 
care guai in lettura. 

PRINT #1,À 

oppure PRINT ^1*18 
Su nastro viene stampato il valore 
numerico della variabile A oppure il 
numero 18, 

PRINT #=LÀ$ 

oppure PRINT #1* -COMPUTER*. 
Viene stampata la stringa AS oppure 
il nome. 

INPUT #=l,A 

Quando il file è aperto per scrivere, 
non è ovviamente possibile chiedere 
un dato. Risposta della macchina:: 
«NOT INPUT FILE ERROR IN...*. 

Comandi di lettura 

Naturalmente prima deve essere 
stato dato il comando OPEN X. 

INPUT # | 

Bisogna comunque specificare cosa si 
vuole in putta re* La macchina ri- 
sponde qui con un SYNTÀX ER- 
ROR, 

INPUT #1JB 

Alla variabile B viene associato il 
prossimo dato letto dal nastro. L’o- 
perazione non riesce se il dato è rap- 
presentato da una stringa: FILE DA* 
TÀ ERROR è il messaggio de! com- 
puter in questo caso. Solo se la strin- 
ga è composta da simboli numerici 
questi vengono trasformati automa- 
ticamente in valori numerici e asso- 
ciati a B. 
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WANTED 


La redazione di Commodore Computer Club vuole potenziarsi e ricerca collaboratori 
fissi sia interni che part-time preferibilmente residenti nell'area di Milano 


Collaboratori software 

Ai commodoriani che stiano ricercando, verrà richiesto di collaborare alle varie iniziati- 
ve della casa editrice con articoli, libri, raccolto di programmi e I* italianizzazione di 
software di cui abbiamo i diritti d’autore. 

I lettori prescelti, pertanto, dovranno possedere un sistema completo Vie 20 oppure 
Commodore 64 e sapere programmare sia in basic che in linguggio macchina. La co- 
noscenza dell’inglese e di altri personal computer è un titolo preferenziale. 

Collaboratori hardware 

A questi collaboratori verrà richiesto di partecipare alla valutazione e realizzazione di 
piccoli accessori per Vie 20 e Commodore 64. Oltre alla parte software, pertanto, 
questi lettori dovranno conoscere a fondo l’ hardware del computer e possedere un 
piccolo banco - laboratorio con gli strumenti elettronici di base. 

Compensi 

Tutti i lavori svolti su incarico della redazione verranno sempre compensati in base ai 
migliori standard di mercato. 

Primo contatto 

Per incontrarci telefonate allo 02/8467348 chiedendo della signorina Piera 
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INPUT £1.8$ 

Il sistema sì comporta come prima. 
Se però (nella precedente scrittura su 
nastro) è stato introdotto un valore 
numerico, questo viene accettato e 
trasformato iti stringa, 

GET #l t C$ 

La macchina esegue introducendo un 
carattere per volta. 

FRINÌ #1, A 

Non è possibile immettere comandi 
di scrittura su di un file aperto per 
leggere. Risposta; «NGT OUTPUT 
FILE ERROR IN...** 

Una verifica 

P rognunnii di scrittura e di lettu- 
ra, quindi, devono essere perfetta* 
mente simmetrici tra loro, Eccone 
una prova, in un esperi mento didat- 
tico da eseguire alla lettera. 

Anzitutto è necessario procurarsi 
tre nastri rigorosamente vergini. 

Poi bisogna trascrivere il pro- 
gramma n. I (non è necessario Inseri- 
re le righe di REM, se non lo si desi- 
dera). Una volta inserito uno dei na- 
stri nel registratore, far partire il 
programma. Ricordarsi quindi dì 
apporre sulla cassetta una etichetta 
adesiva con la dicitura «file numeri 
+ stringhe** prima di metterla da 
parte. Solo a questo punto, battere 
NEW e digitare il programma n.2. 
Come nel caso precedente, far parti- 
re a questo punto il programma sulla 
cassetta n.2 ed etichettarla con la 
scritta - IO numeri». Stesso procedi- 
mento con la terza cassetta, che, uti- 
lizzata col programma n.3, va con- 
servata a nome «PRINT a vuoto*. 

C he cosa è stato scrìtto sui tre na- 
stri? Per controllarlo scrìviamo il 
programma n.4 e, ria v volta nel regi- 


stratore la cassetta -FILE NUMERI 
+ STRINGHE-, facciamolo partire. 
L’operazione riesce; in fase di lettu- 
ra, U quarto programma è il simme- 
trico del n, I, Modifichiamo ora il 
programma rendendolo uguale a 
quello in tabella 5. Riavvolto il na- 
stro, scrìviamo RUN, A questo punto 
le prime dieci righe del nastro saran- 
no lette come stringhe, producendo 
la stampa corrispondente sullo 
schermo. Le altre non saranno lette. 
Questo perchè, arrivato alla linea 
150, il linguaggio Basic si aspettereb- 
be o valori numerici o una strìnga 
contenente soltanto caratteri nume- 
rici. Si ritrova invece (vedi program- 
ma N. I) una strìnga composta dì ca- 
ratteri alfabetici. Questo a dimostra- 
zione del fatto che i files possono esse- 
re letti solo nello stesso ordine in cui 
sono stati scrìtti; diversamente si ge- 
nera confusione. 

(Caricando il programma n.6 è 
possibile leggere qualsiasi tipo di file: 
grazie allo statement GET viene 
introdotto net calcolatore un solo ca- 
rattere alla volta. Ma che significato 
ha la variabile ST (status word, paro- 
la di stato) utilizzata nella gestione 
dei file su nastro? 

Precisiamo, anzitutto, che questa 
variabile è «vietata». Se cerchiamo, 
ad esempio, di scrivere ST = 18, otte- 
niamo un messaggio di errore. Il cal- 
colatore modifica ST controllando se 
vi sono anomalìe nella lettura dei da- 
ti. Normalmente resettata (posta, 
cioè, eguale a zero) se tutto procede 
con ordine* ST viene posta a 64 o 128, 
a seconda che incontri un EOF o un 
EOT. ST però può assumere anche 
altri valori, fi programma n.7 (una 
versione più ampia del n.6) è utile per 
individuarli, tanto che si consiglia di 
conservarlo a quanti vogliano cimen- 
tarsi con i files, Nei manuali general- 


mente non viene indicato che è bene 
controllare ST immediatamente do- 
po l'introduzione del singolo dato da 
nastro, e non a distanza di due o tre 
istruzioni. Se vi sono, ad esempio, tre 
dati, conviene seguire il procedimen- 
to illustrato alla figura 2 e non quello 
della 3, in cui il controllo avviene 
dopo i 'inserimento del terzo dato. Un 
esempio. Facciamo girare il pro- 
gramma 5 utilizzando il nastro «10 
numeri*, 

11 programma chiede in effetti ven- 
ti dati. Poiché pero il file ne contiene 
solo dieci, alla riga 160 (richiesta del» 
l'undicesimo) ST verrà settato a 64 e 
il programma terminerà alla riga 
190. E’ evidente che controllando ST 
sarebbe possibile realizzare dirama- 
zioni in altri punti del programma 
principale. 

Mantenendo il programma n .5, 
facciamolo girare con inserito nel re- 
gistratore il nastro «PR1NT A VUO- 
rO». Ne risulta un errore: la riga 130 
chiede infatti un dato da associare ad 
A $ ( I), ma incontra solo dei caratteri 
di rìtorno-carreUo stampati col pn> 
gromma n.3 sul nastro. Non sarebbe 
stato meglio allora inserire un con- 
trollo della sintassi netto stesso siste* 
ma operativo ut modo che fb^e vieta- 
to il comando PR1NT 1 «a vuoto»? 
Questo non è stato fatto per un preci- 
so motivo; il comando, dannoso nei 
file a cassetta, ha un preciso signifi- 
cato coir uso delle stampanti median- 
te il bus IEE'488. 

Come specificato nel REM dei pro- 
gramma n.3, disfunzioni simili si 
possono verificare nel caso si stampi 
una matrice alfanumerica di cui tutti 
o alcuni elementi siano nulJi. Nel caso 
di matrici numeriche, invece, sap- 
piamo che anche non elaborando al- 
cuni elementi nel corso di un pro- 
gramma, essi assumono automatica- 
mente il valore zero (al momento del- 


1 6 Compuf pr Club 


la difinizione DI M) che è pur sempre 
un valore. Ecco perchè è assoluta- 
mente indispensabile, quando si trat- 
tano matrici alfanumeriche che si de- 
sidera poi riversare su nastro, una 
volta che le abbiamo dimensionate 
con lo statement DIM, «riempirle* 
elemento per elemento con una strin- 
ga codice non nulla prima di deposi- 
tarvi i caratteri alfanumerici che ri- 


sultano dall -elaboratone del pro- 
gramma al quale appartengono. Ac- 
corgimento questo che purtroppo 
non e riportato su nessun manuale. 

Analoghi malfunzionamenti, su 
cui non ci intratteniamo, derivano 
dall'uso di PRINT CHR$(X) in cui X 
è uno dei valori non utilizzati dai 
computer Commodore. 


Importante: è noto che, invece di 
- PRINT", è ammessa fabbreviazio- 
ne «?*♦ Nel caso particolare di 
«PRINT#** tale abbreviazione ge- 
nera un «SYNTAX ERROR** 

E" pertanto* indispensabile digita- 
re per intero «PRINT*, oppure ri- 
correre all’abbreviazione «P* segui- 
ta da SHIFl 


100 

REM 

*** 


SC-R I T TURA 1 0 NUMER 1 

100 

REM *** 

SOLO 

10 

NUMERI 

1E0 

REM 

* + + 


& D I 10 STRINGHE 

1 10 

REM ¥** 




130 

AS * 

"STR 1NGA" 

1£0 

OPEN 1 , 1 , I , 

M0 NUMERI 

* 


140 

OPEN 

1 , 

1 , 1 

, “NUMERI + STRINGHE" 

130 

FOR 1=1 TO 

10: FRINÌ#! 

, I 

: NEKT 

150 

FOR 

1 = 1 

TO 

10: PRINT# l r l - NEKT 

140 

CLOSE 1 




ÌG© 

FOR 

1 = 1 

TO 

10: FRINÌ# Ì,A$: NEKT 







170 CLOSE 1 

PROGRAMMA N , £ 

PROGRAMMA N* 1 


100 REM +** SCRITTURA PR1NTK1 A VUOTO 
110 REM *** 

12© REM INSERIRE DIM A* < 30 ) 

130 OPEN l r l,l, "PRINT#! A VUOTO " 

140 FOR 1 = 1 TO 10 * PRINTttl : NEKT 


PROGRAMMA N. 3 


100 REM *** LETTURA NUMERI + STRINGHE 
1 10 REM *** 

1 c0 OPEN 1 

130 FOR 1 = 1 TO 10: INPUT# 1 I> 

140 IF ST THEN PRINT ,t ST="ST! GOTO 190 
150 PR INT^NUMEIRD "lì A< l.> * NEKT 
160 FOR 1 = 1 TO 1 0 S 1NPUT#1 ,A*( I > 

170 IF ST THEN PRINT M 3T« H STi GOTO ISO 
1 30 FRI NT M STR I NGA N. JJ i; NEKT 

180 CLOSE l: ENO 


PROGRAMMA N.4 
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100 REM ¥** LETTURA STRINGHE + NUMERI 
1 i 0 REM * ** 

180 OPEN 1 

130 FDR 1 = 1 TG IBS INPUT# 1 ,F\M< I ) 

140 IP ST THEN PRINT "ST-'^STl GOTO 190 
150 P R I NT “ 3 TR i NGft N."U PStl): NEftT 
160 POR 1=1 TO 1 0 i INPUT# 1 ,rK 1 > 

170 IF ST THEN PRINT «ST=*ST: GOTO 190 
130 FRI NT " NUMERO rt I / l > ; NEKT 

130 CLOSE 1 : END 


PROGRAMMA N,5 


1 


100 REM *+* USO 03 GET# 

1 10 REM *** 

1H0 OPEN 1 
130 GET#1, fi* 

140 IF ST THEN PRINT "ST="ST: GOTO 160 
150 PRINT fi*; i GOTO 130 
160 CLOSE l J END 

PROGRAMMA N. 6 


100 REM **# COMMODORE COMPUTER CLUB 
110 REM *** ESAME CONTENTO NfiSTRl 
12C REN *** 

130 REM *** ALESSfiNDRO DE SI MONE 
140 i 

150 POR 1 = 1 TO 6: REfiO Y*( I > : NEXT 
160 □ I M X( 50 > : 1*1 

170 READ X( I) : IFW 1X0 THEN J=J-1!G0T0 130 
100 3=1+1! GOTO 170 

190 OIM X*< £55 > ! FOR 1 = ITO J:REA0 X*< X( 1)1! NEXT 
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20 © 
2 10 
220 
230 
240 
250 
260 
270 
280 
29© 
300 
310 
320 
330 
340 
350 
380 
370 
380 
390 
400 
410 
420 
430 
440 
450 
4 80 
4 70 
480 
430 
500 
510 
520 
530 
540 
55© 
56© 
570 
580 
59© 
S00 
6 10 
620 
B30 
640 
650 
660 
670 


FOR 1=0 TO 273 IFX9CDB"" THEN XSC I > «STR« 1 > 

NEXT 

PRINT CHR*< 147> CHRS042) CHRSC SJ 

FRI NT “ I NSER I SC I IL NASTRO CON l DATI m ì 

PRINT "CHE DEVI ESAMINARE E R I AVVOLGILO - ff 1 

PR I NT “IL SUO CONTENUTO SARA ' LETTO E MOSTRATO IN " ; 

PR I NT " BLOCCH I 0 1 CARATTERI- SE ALCUNI ■; 

PRINT “DI QUESTI SONO SPECIALI □ NUt-L I , 11 1 

PRINT “IL LORO VALORE ASCII APPARIRÀ" IN RE VERSE. 

PRINT “ALLA F INE SARA 1 VISUALIZZATO *ì 
PRINT" IL NUMERO DEI CARATTERI LETTI." 

GOSUB 5 10 3 OPEN 13 PRINT CHR$< M7)£ J = 0 
FRI NT "SE IL FILE LETTO E ' UN PROGRAMMA 

PRINT “ESSO E" ALLOCATO OA “ PEEK< 323 ) +PEEK< 830 > *256 “ A “ ; 

PRINT PEEKC 831 ) +FEEKC 332 ) *258* PRINT 

PRINT “3 IL NQPE DEL FILE E ' ì “SPRINT 

PRINT “P f J IFOR 1 = 1 TO 18 l PR INT ì i NEXT: FRINT*T 

PRINT “I "J ;FOR I =833T0833 + 16! PR INTCHRS^ PEEKC I ) ' NE X T ! P R I NT 

PR 1NT“L W * • FOR I«LTD!8!PRINT P _ W ; : NEXT ipR 1NT“ _X s PR INTU— 1 

J^J+ls K*K + 1 

TF K, >73 THEN GOSUB 510:K=0 

GETtt 1 ì IF ST THEN PRINT B$iGOTO 480 

IF PEEK< 137 X >64 THEN 420 

IF = * ** THEN PRINT “a* NULLA *«"JlGOTO 390 

IF X*<ASC<BS>>= ““ THEN PR IITT B$JiGOTO 330 

PRINT »m " XSrASC(Bsn) 11 *■" 7 (GOTO 330 

PRINT “B^A PAROLA DI STATO E 1 i “ST 

FOR 1=2 TO 3 UF ST ANO 2tl THEN PRINT Y*< I - 1 ) 

NEXT 

P R I NT M a I L NUMERO DEI CARATTERI ESAMINATI E " : " J 
PRINT CLOSE 13 END 

PR 3 NT : PR I NT : PR I NT * B 3 E R CONTINUARE PREMI UN TASTO * 

GET A*: IF A*- ““ THEN 520 
PRINT: RETURN 

DATA BLOCCO TROPPO CORTO, BLOCCO TROPPO LUNGO 
DATA ERRORE FATALE DI LETTURA 

DATA CHECKSUM ERROR , FORSE HAI INSERITO UN PROGRAMMA! 

DATA "CONTRASSEGNO DI O . Fi" , “CONTRASSEGNO 01 *.O.T.B** 

DATA 5,8,3, 13, 14 , 17 , 18 , 13,20,28,29 ,30,3 1 , 126, 129 , 130 , 131 , 132 

DATA 133, 134, 135 , 136 , 137 , 133 , 133, 140 , 14 1 , 14£ , 143,144,145,146,147 

DATA 148, 143 , 150, 151 , 152 , 153, 154, 135 , 15S, 157, I SS, 153, “I 

DATA B I ANCO , CAR , BLOCCO , DAR . SBLOCCO , RETURN, MINUS/MA IUS 

DATA CRSR QWN, REVERSE -GN, HOME ,DELETE , ROSSO ,CRSR-R IGHT , VERDE 

DATA BLU , 1 28 , ARANC I ONE , 1 30 , 1 3 I , 1 32 , F 1 ,F3,F5 ,F7 ,F2 ,F4 ,F6,F8 

DATA SH I F T +RETURN , MA I US/GRAF , 1 43 , NERO , CRSR/ON , REVERSE -OFF 

DATA CLR , INSERT, MARRONE, ROSA ,6R IOIDI ,GR IGI02 

DATA VERDINO, CELESTE, GRIGI03 

DATA V IOLA , CRSR -LEFT ,G I ALLO , AZZURRO 


4 

READY. 
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Vie 20 & Commodore 64 


I due Serpenti 



D ue simpatici serpentelli, uno gui- 
dati) da voi e l'altro guidato dal com- 
puter, strisciano lungo lo schermo la- 
sciando una scia, tìuai a toccarla o a 
ritornare direttamente sui propri 
passi!! 



100 REM *** I DUE SERPENTI **♦ 

110 REM aaa a a* 

120 REM aaa GIOCO PER vie 20 aaa 
130 rem aaa senza espansioni aaa 

140 ! 

150 PRINT'JIL GIOCO SI CONTROLLA" 
160 PRINT'CON I TASTO" 

170 PRINT'B I ,L , J ,M * 

180 PR 1 NT " mPDPO OGNI CRASH PREMERE 
F,S OPPURE M 

190 DIM X( 4) ,Yt 4) ,C< 4> ,DC 1 I) 

200 FOR 1 “ 1T04 t READ X<I>,Y(I), 

C< I > ! NEXT 

210 POR 1 C 0TO 1 1 ! KEADD< 1 > ! NEXT 
220 UL= 102 ICL« 160 * F *22 t P = 46 » 2 e 
0iMX«21 tMY-22 

230 US=Z !CS=2 i W-=.96iV- 1 s L-2tR = 

3 iU-4 J S=7SS0 

240 PRINT'UVUOI UN GIOCO LENTO, 

MEDIO O VELOCE < L ,M,V > ” 6 INPUTA* 
250 A**LEFT« A$,V> 

260 TL=40 

270 IFA*="V*THENTL-Z 
280 1FA*«*M"THENTL=20 
230 GOSUB 990 
300 T=RND< -TI > 

310 UD«3SCD-2!C-0 
320 UX»10!UY=7iCX» 10!CY=10 
330 UA=S+UX+FaUY!CA=S+CX+FaCY 
340 GETA* 

350 1FA*< >' I "AND AS< >- L'AMO A*< > 
"J"ANDA*< >“M" THEN420 
360 IFA*=*M*THEND=2/L 


370 1FA*= " J “THEND=4/ r L 
330 IFA**"L"THEND=6/L 
390 IFA* = " I "THEN0“8/L 
400 IF INTC □ )< >D THEN420 
410 U0=0 
420 GOSUB870 

430 IFPEEKt A)OPTHENC*=C+V 
440 POKE UA,UL 
450 POKE A ,C< UD > 

460 UA = A : UX°X s UY^Y 
470 TZ =T I 

480 GOSUB900 ■ B**A ! GOSUB880 
490 IF< ( PEEK< B ) AhCPEEKt A > > =P )AND 
< RND< VX W>THEN630 
500 T* INTC LaRNDC V) >+R4< CD-V) 

510 H *0( T > ! 6 *D< T +V > 

520 G0SUB9 1 0 ! B=A ! GOSUB830 

530 IFt PEEKC B ) ANDPEEKC A) J*PTHEN620 

540 1FH< >GTHENH*B! GOTO520 

550 GOSUB880 

560 1FPEEKC A > =PTHEN630 

570 T*INT( L aRNOt V> > +RaC CD-V ) 

580 H*DC T) tG*=D< T+V ) 

590 GO5UB890 
600 IFPEEKCA) =PTHENG20 
610 IFH< >GTHENH=G ! GOTO530 
620 CD=H 

630 IFPEEKt A >< >PTHENC*C+L 
640 POKE CA ,CL 
650 POKE A ,C< CD > 

650 CA i CX =»X I CY-Y 
670 IFOZTHEN700 
660 IFT I -TZ< TLTHENB80 


PO - Compiile' Club 




690 GOTO 340 

700 PR ! NT ■ già "J 

710 IFCWTHEN750 

720 CS=C64I 

730 PRiNT h TU HA l m t 

740 GQTDB20 

750 IFOLTHEN790 

760 US»US+1 

770 PRINT-VIC HA*; 

780 GOTO920 
790 US*US+ViCS*CS+V 
800 POKE A, 214 
810 PR 1 NT N ABB I AMO * ; 

880 PRINT* PERDUTO ! " 

830 PR 1 NT “ IIHHMIHNHIf ru * 11 US J *VIC“"CS 

840 FORI «lTO10:GETA*s|vEXT 
850 GETA*liFA$= B -THEN850 
860 GOTO250 

870 X=UXi Y«UYaD*UO= G0TO920 

880 X=CXt Y=CYED«CD*GOTO3B0 

880 X“CXs Y«CYiD-H< 6OTO880 

800 X=CX+X< CD) ? Y=CY+Y< CD > a D»CD i BOT0980 

810 X«CX+X< H) i Y*CY+Y( H) iD»HiG0T0B28 

920 X-X+XC D) IY«Y4YCD> 

930 I FX< Z THENX *MX 
940 I FX >MXTHENX*Z 
950 IFY<ZTHENY»MY 
960 1 F Y >MYTHE NY® 2 
970 A«S+X+F*Y 
980 RETURN 

990 REM DISEGNA IL CAMPO 

1000 PR INT *LT > FORXX«7680TO7S80+££*E3 JPOKEXX ,4B * NEXT 
10 10 FORXX«38400TQ38400+22*23 * POKE XX ,0;hEXT 
1020 RETURN 

1030 DATA 0,1,22,-1,0,60,1,0,62,0,-1,30 
1040 DATA 3, 2, 3, 4,1 ,4,4,1 ,4, 2, 3, 2 

READY. 

_ 


100 REM *** I DUE "SERPENTI *** 

110 REM *** *** 

120 REM *** GIOCO PER IL *** 

130 REM *** COMMODORE 64 *** 

140 i 

150 PR1NT“ÌJIL GIOCO SI CONTROLLA CON I TASTI " 

160 PRINTTAB( 10>"Wa l, L, J, M * 

170 PR I NT * B^KDOPO OGNI CRASH PREMERE F,S OPPURE M 1 
180 POKE53280 , 254 i P0KE5328 1 ,246 

E 
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190 DIM X< 4 > ,YC 4 ) ,C( 4 > ,D< 11) 

200 POR I* 1T04 iRERD K< l > ,Y< I > ,CC I > a NEKT 
£10 FOR I-0TO1 1 S READDC I > sNEXT 

£20 UL» 10£ *CL“ 160: F = 40 !F = 46 :Z -011^*39 a MY*£4 
£30 US-Z iCS»Z * W*,9S> V* nt=£ !R*33U = 4 ES= 10£4 
£40 INPUT "W/UO I UN GIOCO LENTO, MEDIO O VELOCE*; A* 
£30 AS~LEFT*< ft*,V> 

£60 TL “40 

£70 IFA*- " V " THENTL-Z 
£80 IFA*--M - THENTL=£0 
£90 GOSUB 390 
300 T=*RNDC-Tl> 

310 UD=3! CD=£IC=0 
320 UX« 103UY«71CX*£9ìCY* 17 
330 Ufi-S+UX+F*UYtCA»S+CX+F*CY 
340 SETA* 

350 IFA*< >“I"fiNDA*K >*L w fiNDfi*< > rt J"fiNDfi*< >"M" THEN4£0 
360 !FAS= "M-THEND-E/L 
370 rFfi** m J" THEND *4/1- 
380 I F A ^ « L *' THEND = 6 /L. 

390 IFfi*** I " THEND *=BXL 
400 IF INT<OX>D THEN4£0 
410 UD =D 
420 GOSUB870 

430 IFPEEKC A >OPTHENOC+V 
440 POKE UA ,UL 
450 POKE fi ,C< UD ) 

460 Ufi-fi <UX-XlUY«Y 
470 TZ-TI 

480 GOSUB900 S B=A * GOSUBQ80 

490 IF< <PEEK< B >AMJPEEKC fi > >=P>fiND< RNJC V X W ) THENB30 
500 T - INTC LuRNCK V > > +R K CD-V ? 

51,0 H-DC T> IG*D< T+V) 

5£0 6OSU09 1 0 s B = fi s GGSUB890 

530 1F< PEEKC B)ANDPEEK< A) >=PTHEN6£0 

540 IFH< >GTHENH*G ! GOTO5E0 

550 GOSUB830 

560 IFPEEKC fi > -PTHEN630 

570 T-INTC L*RNPC V > > +R *C CD-V> 

580 H-DC T) iG*DC T+V > 

590 GOSUB830 
600 IFPEEKC fi > «PTHEN6E0 
810 I FH< >GTHENH -G : GOTO590 
620 CO*H 

630 IFPEEKC fi >< >FTHEIMOC+L 
640 POKE Cfi ,CL 
650 POKE fi ,CC CD > 

680 Cfi-fi 5CX-X JCY-Y 
670 IFOZTHEN700 


22 - Computer Cinto 



T O I 


680 IFTI -TZ< TLTHEN680 
690 GOTO340 
700 PRINT“9B 
710 IFOVTHEN750 
720 CS=CS+1 
730 PR1NT*TU HAI") 

740 00X0620 
750 IFOLTHEN790 

760 US-USM 
770 PR 1 NT "IO HO " J 

if 

780 GOTO820 
79© US=US+V!CS=CS+V 
800 POKE A, 214 
810 PR1NT“6 O T H * J 
820 PRINX* P E R 0 U 
030 PRINT" 

840 POR I » ITO 10 ! GETA** NEXT 
850 GETA*i IFA*“" "THEN850 
860 GOTO250 

870 X^UX i Y“UY I 0=UQ ! GOTO820 

880 X =CX l Y =CY i D =CQ « GOTO820 

830 X ^CX ! Y*=CY s D*H i GOTO920 

900 X=CX+X< CO) i Y-CY+Y( CD) :0=CDi GOTO820 

9 10 X=CX+X< H) *Y-CY+Y< H) i D-H>GOTO920 

920 X=X+X< 0) iY»Y+Y< 0) 

930 1FX<ZTHENX=MX 
940 1 FX >t*K THENM «Z 
950 IFY< ZTHENY-MY 
960 1FY >MYTHENY=Z 
370 A=S+X+F*Y 
980 RETURN 

930 REM □ I SEGNA IL CAMPO 

1000 PR1NT-J') s FOR 1 -1T0993SPR 1NT* . •? «I-CXT 
1010 POKE 2023 , 46 1 P0KE58295 , i I RETURN 
1020 DATA 0,1 ,22 ,-1,0 ,60 / 1 ,0,62 ,0,-1 ,30 
1030 DOTA 3, 2, 3, 4 , 1 ,4 ,4, 1 ,4 ,2,3,2 


READY. 


TU-^US)" 64*''CS 
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100 REM GRAN FRIX PER VIC SENZA ESPANSIONI 

110 REM RICHIEDE L'USO DEL JOYSTICK 

123 REM DI MARCO SALVATO V. TRENTO II MESTRE (VE) 

130 REM TEL, C417S5325S 

140 : 

150 P0SE3G379 , 1 8 « HJ * I S 30TG8B3 

160 "ORI =71C3T07S-’3:P0t<E: ,PEEK( 1+25000) s NEXT 

1 70 FCP I -7384TQ7423 l RE ADA : POKE I , A ■ NEXT 

!30 DmT’90 , !E6 ,90,54 ,60 , 183,555 ,133,224 ,71,242 

ISG 0TTA255, 255 ,242,71 ,224 , 133,255, 183,00 

203 DA TA24, 30 , ige, 30, 7, 226,73, 255, 255, 79 ,228, 7 

210 DATA 135 , 135,60,60,135, 163,60,66,0,234 ,170,170 

220 FQR 1 =7432707447 ! READ A s POKE I , A : NEXT 

23B DATA 176 , l^C ,235 ,0,S3 ,166,36,160,30,160,30,160 

240 R0KC3S869 ,255 : F0KE52 ,26 : P0KE5S ,26 i P0KE36S73 , I0«CLR 

250 PM=9 V 33 : TM = 33 s V = 36373 : FOKEV , 15 : N=36S76 : S6 =0 : OR = - 1 

260 INPUT" USO IR I "'Gl ì F0KE37 137 ,0 ! P0KE37 154 , 127:GOSUE530 

270 P0KEPM,TMtFORW=57TO48STEP-l :P0K£763S,W 

£30 FORT= 1TC400S NEXT: POKEN, 253; POKEN,0 

233 I rU*54THENPCKE3B4££ ,£ ! PCKE7700 ,B1 

2P3 NEHT:P0KE77E2.SiTP0KE3844B,5 

310 P0KE7S86 ,32 :P3KEN+1 ,247 « F0RT= 1 TO8O0 « NEXT 

320 PCKEN+ 1 ,6 : TI**"000000 ■ : P0KEPM,3£ 

730 3TSUO370 * GOSUB370 ; SOSUB370 : GOSUB370 
34 B I FQR >=GlTHENT*»TI*s GOTO 740 
350 30SUS370 s GOSUB370 ! GOSUB370 

360 FR INT“9“ TAB( 10 >MIG*( TI *,3,2) J ‘ I " IMID*( TI*, 5, 2) i G0T0336 
370 S = PEEKC 37137) iFX*( ( SAfO32)=0) 

386 S6*< < SA NO 4 )=0> ÌSl = -< ( SANDS) =6) : S2 = ( C SANO 16) =3 ) 

330 S=PEEK( 37152) ìS3 = -( < SANOI23)=0) i IFSO=- 1THENTM=£7 
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400 I C S3= 1THENTM=£3 
410 IFS 1 " 1THENTM=29 
120 IFSZ* - I THEINTM=30 

133 P0KEPM,32 : PM«PMH S2+S3) +2£*C S0+31 > 

440 ONPEEKt PM> ~30GGTO4G2 ,150 ,520,8 10 

453 POKEPM,TMt RETURN 

160 pm = PM-C 22*53 >-££*( S I +S0 ) 

470 POKEN-M ,230 SPOKEPM, 27 s FORT* 1TO200S NEXT 
’-SB POKEV, 12 * P0K.EPM,28 : FORT = 1TO230 s NEXT : POKEV ,9 
430 PGKEPM,29 : FORT* 1 TO200 s NEXTs POKEV ,6 
500 POK. EPM , 36 « FORT = 1 TO200 s NEXT s POKEV , 3 

510 POK.EN+ 1 ,0 : POKEV, 15* SB=SB+ 1 : PR INT "3" TAB< 15 )3B : BOTO450 
520 POKEN-U ,245 : A 1 =RND>: 1 ) 

530 JEAK *.5AND< TM=28QRTM=30>THENPH=PM-2£sGOTQ570 
540 IFA1 >,5AN0< TM«2SORTM = 30>THENPM=PM«>22:GOTO370 
550 IFA1< = . SANO' TM=270RTM=29>THEM 9 M=PM+ I :GOTO570 
360 IFAi >.5AND( Tt*l=270RTM=23)THENPM=PM' 1 : GOTO 570 
573 POKEN+ 1 ,B : GOTO450 

330 PF Tir- 4 “ J 

590 PRUT” 1- *-4-4- 4") 


£00 

PR I HT " +■ 




44 

444444 M ; 


e io 

PR 

44 


4 44-4- 

4 M J 


sso 

FRI NT "44 


44 


4-4-4-44“ 4- 4- " f 


630 

PRINT"*- 

4 


444 

44 

4 444444 “ ; 

040 

PR INT "4 

4 

4 

44 

44 

4 11 } 


650 

PR INT" 4 

4-4 


4-4- 4 

4- 4 

4 

* 

i., ii i 

4 t 

880 

PR INT 11 *- 

t 

t 

4 

4- 4 

4"; 



£70 

PR INT (, 4 

4- 

4 

4 

44 

t 

t 

4 

880 

PR I NT “ 4- 

4™^ 

4-4 4 

44 

4-4 

4»; 


690 

PR ! NT " 

44* 

tt 



700 

PR I NT " 4 




444 


- 


720 P0KE7734 ,33* PQKE7934 ,33 * P0KE7925 ,33 
730 P0KE8 132 , 34 : P0KE3 110,34: R0KE8 154 ,34 s RETURN 
740 FOR I =254TQ 128STEP- 1 IPOKEN, I : FEXT:POKEN,B 
750 PR INT" JTEMPO *T$: PR INT "MI NC IDENT I "SB 
7G0 PR 1NT"SP IR I "GR * PR INT "B3 IOCH 1 < S/N) “ 

770 GETT*: IFT*=" "THEN770 

7S0 IFLEFT*C T$, 1 > = "S * THENP0KE37 154 ,255 S GOTO860 
790 P0KE3e8S9, 240 SENO 

300 P0KE7364 ,48 : P0KE303S, 46: P0KE7377 ,46i POKE797S,4B s RETURN 
810 PCKEN,240s GR = GR * 1 SPRINT"® IR I *GR:POKEN,0 
820 IFTM=30THENPM=PM- 1 
630 IFTM=23THENPM=PM+ 1 

340 1 FOR =31 - 1 THFNPR 1 NT " sfflMWBIL iLT 1 MO G1R03” 

350 00T0453 

363 P0KE363S3 ,243* PR INTCHRSC 14 ) "J" 

870 IFH J * 1THENHJ -S s GOTO 160 

830 FORT = 1TO5030 : NEXT: POKE36869 ,255 s GOTO250 

ready. 
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Commodore 64 


I 


Ricordate 

War Games 


nn ami lutto voglio rassicurarvi: 
non si. tratta del solilo programma 
che gioca a tris e basta. Si può piutto- 
sto considerare un esempio dì come il 
computer possa imparare dai propri 
errori. Infatti, al RUN, il computer 
non sa assolutamente come si gioca a 
tris* Semplicemente sceglie le sue 
mosse a caso controllando solo chi ha 
vinto. 

Nel caso, molto probabile, che il 
computer perda, memorizza finterà 
sequenza di ritosse della partita e l'e- 
lemento, la mossa avversaria, che ha 
determinato la sua sconfitta. Se ora il 
giocatore accetta una ulteriore sfida, 
il computer cerca nella memoria tutti 
gli schemi deile partite che ha perso, 
e se scopre che le mosse fin 'ora gioca- 
te corrispondono a quelle di un'altra 
partita memorizzata, va a vedere 
quale era stata la riga, colonna o dia* 
gonale In cui era slato sconfìtto e, se 



là di scelta del giocatore fino a quan- 
do riesce, se non a vincere, almeno a 
pareggiare abbastanza frequente - 
mente. 


c 


osi coiti è il programma prevede 
la possibilità di scelta sulla prima 
mossa (computer o giocatore), ma 
non prevede li salvataggio delle ma- 
trici contenenti tutte le partite perse 
su una memoria di massa, per cui 
una volta spento il computer occorre 
insegnargli di nuovo come si gioca. 


possibile, piazza la sua pedina pro- 
prio in quel punto. Così facendo il 
computer può essere sicuro che il gio- 
catore non può più vincere alla stessa 
maniera dì come aveva vinto in 
precedenza* 


F 


G 


locando numerose partite il com- 
puter stringe sempre più le possìhìlì- 


er ultimo un consiglio: state molto 
attenti a non lasciare ai computer la 
possibilità di vittoria credendo che, 
non sapendo giocare, non giochereb- 
be mai quella mossa. E' sorprenden- 
te vedere come il caso si accanisca 
sempre contro il giocatore. 

Alberto & Andrea Boriimi 


1 REM** ******** 4 4 0 + * * * ** -* f- * * ********** 

2 REM# CCfWCORE 64 i TRIS CON MEMORIA ¥ 

3 rem* * 

*1 REM* ANDREA & ALBERTO BORIAMI ¥ 

5 PCM* * 

6 REM* TEL , 02/ 6 135628 * 

7 REM** ************** ** * * * * * *; * ¥ * * * * * > t- 
B : 

9 REM ********* 1 N 1 7 3 AL IZZA? IONI ******** 

10 D IMKtt > , F G > I LAST=0: Girici 3,3? ,G IVA □ ,£> ,M1X( 50> 1 

J 2 FORO -I TOC : F3RF - I TZ3 ' REACCfCs 6 , F ) t NEXTF ! NEKTO 

13 F0R3” i T OE i FQRF “ ITlpB 1 REftDC \ Y*\ 6,3? : NEN7F i N£MTG 

!4 D^7A : * ,7,6 ^,8 ,3 ,G,3, 13, ,S,L4, 10, 1E,24, 10, 10,24,3,3*3,3,8,8, 13,13,13 

80 FCRF = ITOO s F'A<. F : NEXT ì SC&UB 1 000 

2 1 R EM 4 * * * * * * I N 2 Z I O j I J CO i: * * * * *¥****** * 
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c. c 


MOSSIÌ'S! INPUT" INIZ IO 10 0 TU " ;ft# : Ih r.t= “ IO ” THENlSO 


CRRR ^XOTOLAST 


23 

3C“F ^8 ìPE 


M0C3r*Mr: 

U^ 1 l 

Y-a. 'u. 

" :nt- r f 


r 5^VV = * r , 

?_5 

IPMT7C 7P , 1 


PKXTMV S IF 

43 

TK 

4 7 

HC)‘TRR 

-i P 

JK ^0 


COMP =0 iR* 

5^ 

ir occ^i 

57 

GOSUB^ESS 

BD 

irvi "n" 5 ' ? 

75 

ifFrtta- 


£ 00 *US£ 33 S 


f* 

1/ 


j.Ff! REM ***-tt*+M0£5P G IQCfìTuRE ********* 

155 MOSEA“MOSSA+1 

i et - Nr ut " ~-?» tn^nrpingi?nu-»P'i) , iiT’ni:n3mrifi?igi -iD s 3 n c a , y > " ; x , y 


IR»? I rx >3G D Y>30RM< 0ORY-; 6THEN160 

1 ??. R;:=>csaH,Y) 

130 compii : 6OSUB2000: IFVITT< >0THEN30O0 
130 TFPflTTf* = 1THEN5000 
H03 IFGCC = ITHEN160 
333 GOSUB7000SREM PLOT 
3555 OGT024 

1000 REM *** **#TRrìCC 1 AMENTO CftHPO r 
1301 Q= - 1 

1032 PR lNT , 'Ljr- 

1033 G=Q+1 

10.10 FORF= 1T05 :PRINTTPB< 15) 

1P3B PRTNTTRB< 15>; "+ t 

{PTrj 1 NT ; TflB< ■£> :FCRF = 1T07*FR INT* - ”? s NEXT 

101-C rRINT"t» 11"' £ FQRF = 1 T07 • PR 1NT " — “ sNEXl :PR INT 

1T5P IFG -0THEN1003 

iceo FORF=lT05iFRimT. ! lB< 15) j "Ì |"sNEXY 

1070 RETURN 

.1333 RFM fcf *#*#*CONTR0LLC 3CE uFATii» ***** 

£000 FftTTfl= J SOCO0J 7ITT“0 

se iB ifpiy RX;« 8 TW£TP;uc R>i>*C 0 MF * i iGOToasac 

£015 CCC-i 

aosa FORF - 1 TC-S * IFF'. - )=-3THE-PFTTfl-e 


■ 1» 


t 


| 11 SNEKT 


E 0 £S 
E ” 3 7 
U 0 4 C 

n. . .— 1. j— 

I *w L 

rG ”0 

*■ 1 C i - 

r* tri 
i w J- -■ 1 

■^5 * P* 

£L t C 5J 


MEXT 

irr-:;.- i ? e frNDP:« £ > 3 >^nep; a ì ) < >3THEN xx = ì * v ; 

ttf::-- 4 )=r a ;< 5 >ftrcp>;c s >-py.< 6 ?andp>k 4 >< /CThen xx=£*v i 

TFF h -;< 7>=p"c: s: b; 3 >anop'a 7 >< >3then xx=3 s v i 

i r f :*- ì : - r 4 : f r ìd f 4 : - p: a 7 > ar >a ?>< >othen xx =4 ; v i 
1 FF * 7 3 > «r: a 5 ? rii 3F B a S: : T ~ F' ^ G > rìNDPM t 8 > < ?0THEN XX=5! VI 
Trv( ?) =p/v OftNCFJtt S>-F^< 9>AMDP>a 9K >0THEN XX=6:V1 
T FF'7 1 > =*=■:« 5 ?fìNOPr« 5>=PX< 3)flNDP>K BK >0THEN XX =7* VI 
! rpvic 3 > =F%< 3 ; fìt4GP>;v 5 ) =f:;< 7 JfSNDPXC 7 K >0THEN XX =8 i V I 


Siti; RFTURr^ 


TT=P7A I ? 
*PVJL 4 > 

7 > 

=P VA 1 > 
~F‘X< E ) 

3 > 

S> 

^P>:< 5 > 
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C-300 REM *****#**F INE PARTI TA****# ***** 
3510 IF V ITT=i7HEN31©0 


30 15 
3386 
3030 
304 5 
3 1 GB 
3103 
3 105 
3 110 
3130 
3130 
3 140 
3146 
3 150 
3 160 
4333 
5000 

5005 
7000 
70 10 
7080 
7030 
7040 
7045 
7050 
7 100 
3300 


lFLfiST-5®TREIM3i00 

LAST^AST+M 

1TC3:M %( LA3T,F ) "F‘A\ F ) * NE X T 
M IVA LAST>=XN 
GOSUB7003 


FOPP= 1TO3630 : NCXT 


PP THT ^JPif ^ARTtTA N 1 * 
IF7 ITT= ITHENPR INT“HO 


LAST; “ MHHT 1 
: GOTO 3 133 


PR 1 NT 11 HA l " f 


PR I NT * VINTO !!!["; 

FR INT SPRINT 11 MMMW UOI GIOCARE ANCORA V 
V I TT-0 

IMPUTA*: IFA*< > " NO H THEN20 
END 

REM ****** SPARTITA F ATTA * * * * # * + : * * 

FORR-ÌTQl000fNEXT;PRINT*ÌXA PARTITA E 1 FINITA PARI" 


GOT03 140 

REM ** f * t + *0 I SEGNO REDIME*»*#***** 

Zm* * r”“i * * X$= M ^ u i C&= "j T i V*- J! t - 1 1: 

I FCOriP =0 THENG $*= Z $ s U*« i GOTO 704 0 

Qm*c$nm*v& 

l - e vsx r;:, i > 

■f=c!:xR:o£) 

PRINfT ”3* Ì FCRF= 1T0K s PR INT"HV * !€' :T - PR INTTAG; L>;Q*> 11 Ubi 4 
RETURN 

R E M* #***01 5 TUR BG AVVERSAR I C # * * * * * 


900 1 JK =0 
9010 COM R “0 
8020 r^-MI%(RR> 

3030 IFXX >3THCNG05O 

3040 PORR- 1 *C XX - 1 > *3TG3 +( XX - 1 > *3: IFP%< R > *0THENKX*fi * GOTO3500 
9045 NEXT 
9047 GOTO 13000 
9050 IFXX >GTHENS030 

3060 PORR = XX “3TQKK + 35TEF3 : I FP/X R >-5THENRX=R i GGTO3500 
8070 NEXT 
9083 GOTO 10OOO 
3090 IFXX-STHEN313C 


9130 FORR= 1TD3STEF4 ! I FPXX R ) =GTHENR%=R i GQTQ3500 
DI 10 NEXT 
9 133 GOTO 10300 

9130 FGRR =3TD7STEF3 * ÌFPy.t R ) =0THENR%=R : GGTG3500 

9140 next 

9150 GQTG 10003 

9500 GO SUB 8 033 

9538 G0TG57 

130S0 GOTO 4G 

READY r 


; 
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VlC 20 SENZA ESPANSIONI 


Scrittura 
Tutto Schermo 


^larco N avalesi è un lettore giu 
noto per un programma pubblicato 
sulla nostra rivista (Vie Battle n* 

i hi è in grado di sfruttare la sua 
idea per realizzare un word processor 
sul Vie? 

I lettori interessati ci telefonino: 
daremo noi stessi delle idee in 
proposito*,» 

Il programma (che gira su Vie 20 
con al massimo un'espansione da 3K 
per via della mappa colore) permette 
inoltre di usare i tasti del cursore, 
Clear e Home, Delete e i tasti dei 
colori (naturalmente +■ CTRL); Tu- 
nica limitazione è che non si può in 
reverse e che non è disponibile la 


maggior parte dei caratteri grafici 
sulla destra dei tasti* Sullo schermo si 
hanno a disposizione a T incirca 33 ri- 
ghe x 25 colonne al numero varia a 
seconda detta qualità di Schermo mo- 
strata dal televisore)* 

Il programma e molto semplice; le 
linee fino alla ISO servono per espan- 
dere lo schermo; le seguenti preleva- 
no tramite un Gei un carattere dalla 
tastiera, convertono il suo codice da 
ASCII a codice dello schermo e lo 
inseriscono nella memoria dì 
schermo* 

!P er finire ecco un elenco delle loca- 
zioni utili per espandere lo schermo; 


32768-33791 mappa del generatore 
dì caratteri ROM (maius. - grafici); 

36864 centratura orizzontale 

schermo; 

36864 centratura verticale 

schermo; 

36866 numero dì colonne (hit 
da 0 a 6); 

36867 numero di righe (bit da 
1 a 6); 

36869 indirizzo di inizio della 
mappa di caratteri (bit da 0 a 3)* 


Marni Na^ai-esi 

Via Matteotti - ?4tH I Aitila MS 
Tel. 0187/402627 


130 REM SCRITTURA TUTT03CHERM0 PER VIC £0 INESPANSO 
110 REM BY MARCO NAVALE S I TEL . 0 167/49262? 

120 POR I =0TO 1023 ! P0KE6 144+ I ,FEEK< 32763+ I > *NEKT 
130 PQKE36363 ,254 s P0KE5S ,24 i PQKE52 , 24 
140 A=3O7£0i2=l 

15S PGKE3S3SS , 2S i PGKE3S867 ,72 i P3KE363S4 ,7 
ISO POKE3S365, 13 i PGKE648 ,23 : FR INT" J” 

170 PGKES4S ,30 * PR IMT'-y i F0KE35873 , 3 ; FOR I = 3TD5 
13C P0KE7G74 » I ,3£ X P0KE7&74 +A+ I , 1 sNEKT 
130 SETA* 1 . IRA*» “ *THENÌ90 
20C P=ftSC< A») 

£13 IFR-20THENPOKE7 1S8+N,32 : PQKE7 16S+N+A ,0 i N-N- 1 : 0OTO130:RtM DELETE 

£20 1 FF= 1 7THEMN=N+2S ’• GOTO 1 90 ! REM CRSR DOWN 

330 IFP=29THENN=N+ 1 : BOTO 130 '-REM CESR LEFT 

24 0 1FP = 145TH£NN C N-£B s GOTO 130 * REM CRSR t 

2S0 IFP* 157THENN=N- 1 ! GOTO 1 30 : REM CRSR+- 

ES3 1 FP * 1 3THENT|s0s GOTO 130 £ REM HOME 
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IpR J ^7THKtJr RINT' J" :FOST = 7lS8TO??08srOKET+r1,0 :NEXTiN = e: 6OTG1302REM CLR 

13 Z I“P=3THENZ =1 : GOTO IB0: REM COLORI 

003 TFr’-2STHENZ*£: GOTO 100 

303 IFP=3OTHENT“5SGOTOI30 

3!S IFP*3lTHENZ=e: GOTO 190 

300 jrr = I KCTf-ìFì4Z =4 '■ GOTO 1 90 

330 It"" 1 - iCOTHEHZ =7SGGT0133 

34 E IFP= 153THENZ =3 ‘ GOTO 1 SB 

3513 REH RSC H - > SCHERMO 

353 IFP>=64ANDP< =35THEMP=F-S4 1GOTG330 

STB IFF ; = lt ÌPNDP ; = 131THENP=R-64 

33 !} t- t-N+ ] s v 1 1SS+NSP0KEV I ,PsF0KEV3 t-fl ,Z : GOTO ISO 

REfHV, 


Commodore 64 



Submarine 


Il programma , che gira su di un 
Commodore 64, pur essendo adatta- 
bile a qualunque alito computer, si- 
mula un sottomarino che deve affon- 
dare delle navi avendo a disposizione 
dei siluri. Viene visualizzato il tem- 
po, il numero di navi colpite e il nu- 
mero di siluri rimasti. Il gioco non è 
facile perchè non si hanno indicazio- 
ni numeriche sullo schermo, quindi il 
giocatore deve aguzzare l'occhio per 
indovinare le coordinate. 

I E gioco consiste nel dare le coordi- 
nate X e V (una alla volta) dì una 
nave (simbolo * ), 

S.. 
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zato mediante due linee, l'incrocio 
nel punto X,Y e se c'è la nave essa 
esploderà, altrimenti si perde un si- 
luro, Quando non avrete piu siluri il 
gioco sì fermerà con la richiesta di un 
altro gioco. 

Si è preferito alTInput «normale* 
per la richiesta delie coordinate, l'In- 
put da device che non fa apparire il 

7 

« '*• 

Nel listato, oltre ai normali simboli 
del cursore, Mino presenti due altri 
simboli (riga 770), 

La «h“ in campo inverso blocca 
l'uso dei tasti SHIFT + C = , cioè 
non permette di passare dal set di 


caratteri minuscoli a quelli maiuscoli 
(simula il CHR$(8) h distruzione e 
disabilitata dal comando PRINT «<i* 
(una «i» in campo inverso = 
CHR$(9) ). Subito dopo compare 
una *n» in campo inverso che ha lo 
scopo di passare al set di caratteri 
minuscoli, simula il CHR$( 14) ) o 
PQKE54272,22, fissa è disabilitata 
da PRINTCH R$( 142) o da 
POKE$4272,20. 

L’istruzione OPEN3,0 apre lo 
schermo come de vice (per il motivo 
deir Input ). 

Andrea Vignala 

Via Cervia 7 - 37134 Palazzina VR 

Tel. 045/583117 “► 




100 REM 

110 REM SUBMARINE - COMMODORE 64 
t£0 REM 

130 REM ANOREA VIGHOLA 
140 REM 

150 REM VIA CERVIA 7 - LOC, PALA22 INA 
ICO REM VERONA - TELEFONO D45/'5831l7 

170 REM 

130 INPUT" JQUANTI SILURI " J SS 
130 GQSUB760 

,200 C I -S4 I C2»93 sC3=9 1 = A = 31 s OPEN3,0 
E 10 DEF FNRC V>*INT< 25S*RNP< TU ) 

22B PGKE53E80 ,0:POKE5328ì -6 ì Pft 

230 COORDINATE ■ ià B" 

240 AT = A$+"j| NAVI COLPITE W 3 B - 

250 A$=AS+“fl | SILURI ■ 3 • " 

260 FORI = ITOSI ìB^ = B$+ H ^ Ili" i NEMTt E$=B*+ w a B 1 ’ 

330 F 3 * " jftiiamUiiyi - SPRINT" J" s T1T= 11 000000 “ 

300 PR INTfi*B*C$JS9?E*f £ s 6OSUB460 s GOSUBSS0 
?]0 PRINTOD^^a* =***0^ s INFUT#3,T*sX*VAU T*> 

330 IFX< 10RX>33THEN3 10 

330 FOKE3U , FNR< SS ? s FORWU= 1TO£0 s NEX7 i POKESU ,& 

340 FRlNTDD^ ,, at -■'* 0$; : I NFUTH 3 , T$ : Y = V AL( T$ > i Y = Y + 2 
350 I F Y< SOR Y >24THEN340 

38© POKESU ,FNR< SS > iFQRWU* 1 TO£0 : NEXT ! POKESU , 0 
370 IFPEEKt 1 0£4 +X +40 *Y > =3 1 THENA 1 = 1 

330 FORI = 1T033JP0KE 1024 + I +40+Y,Cl :POKE552S6 + I +40+ Y ,5 i POKESU r FNR< SS ) : NEXT 
330 FOR 1 * STO 2 4 : POKE 1024+X+40+ I ,C£ - P0KE552S6 +X + 40 * I ,5 = POKESU , FNRC SS>*NEXT 
400 POKE10£4+X+40*Y,C3iPOKE3U,0 
410 GOSUD430 

4E0 fr int"LTA$btct; ss; et; 
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I T U A Z I O N £ H !GDSUB710 


430 
140 
È5E 
160 
470 
130 
406 
500 
■10 
52© 
530 
540 
550 
5G0 
570 
530 
530 
oro 
r ie 

730 

37? 

Pj"0 

|?50 

r-?7 

330 

£00 

7 ! O 
720 
730 
740 
750 
7S0 
770 
780 
730 
000 
310 
320 
53G 
840 
850 
330 
370 
330 
338 
303 
3 10 


P r- T S , ~ r ' n 

>■■ i * K 


cctv*! :rv-t= thenus 

90TD30T 

v ' 1 - I NTf 38 *RND( TI > + 1 ? ! Y1 = JNTC £ 1 *RND4 T I J +3 ) 

POKE 10S4H-X1+40*Y1 ,ft!P0KE35£9B+X144&*Yl , 1 
RETURN 

IFfi 1 «0THENSS = SB - 1 s GOSUB570 S 6DSUB66B : RETURN 
S=54£7£ ! P0KE5320 I ,£ : FORP= 15T0QSTEF - 1 

P0KES424 , ” ! POKEì+5 ,■ 15 irOKES+E ,£sPOKtS+i ,40 iFOKE3,£00:POKES+4 , l£S 
FORU= 1 Tosa : NEXTU : NEXTF : F0KEE- + 4 ,0:POKES+5 ,0»fil ’=0»E=E+ 1 : P0KES3E8 1 ,8 
PCKC1£04+X+40*Y, 163 

P0KE15H+V? + 4e*Y, 160» FORI = 1TC500 5NEXT1 : PGKE lO244X + 40#ì', 10£ ; PQKE53SÓ i ,7 
FOR I ■ 1 TO500 J f JEMT * POKE 1 024 -US *40 *Y , 104 s F OKE55E36+X +40* Y ,5 * POKES3£b 1 ,b 
FPR I - ] TO300 : NEXT» RETURN 
>OTUENRETUPN 

rOR 1 - 1 TD3C : POKC53EBO ! I P0KE53S8 1,1-1 


FORF ■- 1-050? tt-^XT: PGF.C3U ,FfR< 1 > *NEXT 
rOKEr2£S?,C :PCKE5S£Si ,e!FOKESU,0 
PR ■NT'<rj' -iSS* r 


■,’UDI ’ SUB MAR I NE C6M 64 


3 ( 


■ I 


POR ì = 1 TOCOOO f NCoT i CLR : 6070200 

REM 

REM 

r R int ,! j * i ss;e£je; dt; 

PR INTT 


A N C A T 0 ! ! 


OETZ^: 7 FZ “ " THEN6S0 
IFZ*“CHR*< 13 >THENRETURN 
GDTCC38 
L*^TX* 

= l CPT$< L$, E ) s Lf,3,E) iHS^R I6HTÌK L*/£ ) 

PRUfr w Cjr iffiMT EMPD PASSATO DALL 1 INIZIO DEL mIOCO 


■ H 


P R ! N" 1 " " lEÉIDRE “K* 
RETURN 

REM FO&E 53280,1 

pr ì >-ìt " aauw 

PR I NT ,F 
FRI NT" 
pn i NT < dina 
PR!NT"jy£££| 


MINUTI rt 

P0KE532S 1 , 1 
Hr- 




SECO! IDI 41 H* 


I kSUBMARINEHl J " 
H 1 — - 1 " 


COMMODORE 84 11 

“i STRUGGI PIU' INCROCIATORI IN U 
PR INT tr MlN0R TEMPO DANDO PRIMA LA COORDINATA ** 

FRI NT * E POI QUELLA I DELLA NAVE ( SIMBOLO * > * " 
FRIMT'^B #TTENTO * HAI SOLO "3$“ SILURI -* 

PR I NT * F CONSUMATI QUELLI LA PARTITA FINIRÀ 1 , 11 
PR I NT ir XKKM3 [ UGNA FORTUNA » M 

GETV^J IFV£ = " * THENB70 
RETURN 

PGKE54296 , 1 5 : P0KE5427 7 , 0 : P0KE54278 , £43 : P0KE54276 , 17 

SU =54273 * POKESU ,02 FOKESU - i ,0 

RETURN 


READTp 
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Elenchi e tabelle 

Fin qui ci siamo riferiti alle celle di memoria con 
Fuso di un solo nome di variabile. Esistono però 
problemi che implicano fuso di più variabili elabo- 
rabili allo stesso modo e, nei programmi che ad essi 


Per esempio, il programma riportato nella tabella 
8.1 introduce un elenco di N numeri e genera un 
altro elenco di numeri negativi utilizzando due pas- 
saggi attraverso i dati in memoria. 

Se N è uguale a 9, I nelle celle di memoria Al 1 f 
A(2),.,*A(9) viene introdotto reieneo dei 9 numeri, 
dato che il loop FGR (dalla linea 20 alle linea 40 1 l 
assume il valore da ì a 9. I è l’indice ed A è il no nu- 
di un vettore di nove elementi, Ogni elemento dei 
vettore può essere indicato con il nome del vettore 
cui appartiene e con Findice che indica la sua posi- 
zione rispetto agli altri elementi. Cosi, per esempio, 
A(4) indica il quarto numero introdotto nel vettore 
A che rappresenta 3a cella di memoria che si trova 


si riferiscono, è più conveniente che alle celle di 
memoria il cui contenuto deve essere elaborato dal- 
F identico insieme di istruzioni, si l’accia riferimento 
senza modificarne il nome. In questi casi, per iden- 
tificare in modo univoco ogni cella di memoria, 
assieme al nome di variabile viene usato un indice. 


fra quelle occupate da À{3) e A(5). 

In basic la numerazione degli elementi di un 
vettore inizia a partire da 0, cioè dal primo elemen- 
to del vettore individuato da A(0>. il programma 
fornito nella tabella 8,1 può essere migliorato, in 
modo da poter essere usato per introdurre ed ela- 
borare nove numeri a partire da A(G), modificando 
il valore iniziale di I in zero per ciascuna istruzione 
POR in corrispondenza delle linee 20* 70 e 140. In 
questo caso però N corrisponde a 8 e non a 9, 

Provate ad eseguire il programma riprodotto 
nella tabella 8.1 con i nove numeri seguenti: 

6, 12, -30* 10, -4, 47, 9 , 0, 58 
1 valori generati per questi dati sono riportati nella 


Tabella 1 Programma per la generazione di numeri negativi e 
minori di 10 

110 frinì 

128 FRINÌ 

138 FRINÌ "VALORI NEGATIVI 
135 FRINÌ 
148 POR 1=1 10 N 
158 IF fl<I; >=0 THEN 179 
160 FRINÌ FKD 
178 IIEXT I 
138 FRINÌ 
138 END 


10 INPUT N 
28 F0F: 1=1 IO N 
38 INPUT ACÙ 
40 NEXT I 

50 FRINÌ "VALORI MAGGIORI DI 10 

60 FRI NT 

78 F0R 1=1 10 N 

38 IF FKI) <> 10 THEN 180 

90 FRI NT A(I) 

100 NEXT I 
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tabella che segue: 


Tabella 2 Risultali dei programma riportato n&Ua tabella 8.1 

NUMERI > 10 
12 
47 

58 

NUMERI NEGATIVI 

-30 

-4 


Il vettore A dell* esempio precedente è detto 
unidimensionale in quanto ha un solo indice. Dì 

norma, i vettori unidimensionali sono costituiti da 
un elenco, quelli bidimensionali da una tabella. 

Quelli a tre dimensioni sono piuttosto difficili da 
visualizzare: un esempio potrebbe essere il numero 
dì pagina di un libro che ha come terza dimensione 
l’indice, mentre le linee e le colonne formano una 
tabella cui si può fare riferimento per mezzo degli 
altri due indici. Gli indici dei vettori vengono sepa- 
rati da virgole, chiusi fra parentesi e posti dopo il 
nome del vettore. Cosi, ad esempio, TS( 3.2,8 ) indi- 
ca la terza linea e la seconda colonna dell'ottava 
pagina di un certo libro. 

Denominazione di vettori 


I vettori usati per contenere i numeri devono 
essere chiamati con un nome di variabile seguito da 
indici chiusi fra parentesi. 

I nomi di vettore uguali a singoli nomi di varia- 
bile possono essere usati assieme a questi ultimi 
nello stesso programma. Infatti I! basic è in grado 
di distinguere fra A. usata come singola variabile, e 
A [indice(i)], usata come elemento di vettore per la 
memorizzazione di numeri, e fra À$ usata come 
singola variabile stringa, e A5 [indiceli )] usata per la 
memorizzazione di stringhe di caratteri. 

Gli indici 

Gli indici utilizzabili con i nomi di vettore pos- 
sono essere rappresentati da qualsiasi espressione. 
Tuttavia, poiché ciascuno di essi si riferisce ad una 


sola posizione del vettore memorizzata in ciascuna 
cella del computer, deve necessariamente avere un 
valore positivo che il sistema tronca all'intero (co- 
me abbiamo già avuto occasione di dire, gli indici 
possono avere valore zero). 

I valori degli indici devono essere compresi nei 
lìmiti del vettore. Per esempio, nel programma ri- 
portato nella tabella 8.1, in assenza di un'istruzione 
DlM t illustrata più avanti, il basic alloca automati- 
camente undici celle di memoria (indici da 0 a 10). 
Se, ad esempio, N assumesse il valore 20, gli ele- 
menti cui viene fatto riferimento ne IT istruzione 
FOR oltre l'elemento A(10) cadrebbe al di fuori 
del l'area di memoria destinata al vettore (cioè fuori 
dai suoi limiti l e* in questo caso, si avrebbe un 
errore di esecuzione. 

L'istruzione DI IVI 

L’istruzione DIM viene usata per definire le aree 
di memoria destinate ai vettori che hanno ìndici 
con valori maggiori di dicci. Nonostante possa com- 
parire in qualsiasi punto del programma (natural- 
mente prima dell’accesso al vettore), è consigliabile 
collocarla ali’inizso del programma stesso, in modo 
da separarla dalla parte principale. 

L'istruzione si presenta nella forma seguente: 
numero di linea DIM elenco variabili di rettore se- 
parate da virgole. 

Le variabili di vettore dell'elenco p isso no essere 
sia ordinarie che stringate (o alfanumeriche) e il 
toro nome è seguito da indici racchiusi fra parentesi 
e separati da virgole. 

Supponiamo, ad esempio, di usare il vettore X 
per memorizzare un elenco con un numero massi- 
mo di 50 numeri e il vettore TS pei contenere una 
tabella comprendente un massimo di 5 righe e 7 
colonne. 

In questo caso, l' istruzione DIM che serve a definire 
la memoria destinata a questi due vettori avrà la 
forma seguente: 

30 DIM X(50), T$(5.7) 

dove X avrà cinquantuno celle ili memoria riservate 
indicate da X(0)m X(l), X(2),...X{5Qh T% avrà un 
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Quando Commodore 

dice “sistema”... 



...e un vero 

per il gioco, lo stu 



STAMPANTE 

Ora tutti i tuoi programmi 
oltre che leggerli sul video 
( i puoi mettere su carta (e puoi 
anche stamparli a colori) 
puoi inviare lettere d'affari, 
fare corrispondenza in 
generale, inviti, libri. 
e realizzare programmi di 
word processing. 

L 515.000 + IVA 


FLOPPY DISK 

Ti consente di sfruttare la potenza e 
la potenzialità del ViC 20 o del 
Commodore 64 Rende veloce ed 
efficiente fa memorizzazione e il 
recupero dei dati e dei programmi 
Immagazzina sino a 170.000 
caratteri per ogni singolo 
disco L. 630 000 

+ iva, rr-w 


VIC 20 
COMPUTER 

Ecco alcune notizie 
sul tuo prossimo amico. 

5 Kbytes espandibili a 32, 

24 colori in tastiera per una infinità 
di combinazioni cromatiche .. Note musicati 
Collegabile al registratore, al floppy disk, al 
piotter e alla stampante . Collegabile, tramite 
Modem, alle normali linee telefoniche, 
il più venduto nel mondo. L 199.000 + IVA. 



A COLORÌ 

Per scatenare tutta la potenza del 
tuo sistema (gira pagina) 




sistema 

dio, la professione. 



REGISTRATORE DEDICATO 

È questo il primo degli accessori del 
tuo computer. Serve per 

memorizzare dati e programmi 
che realizzerai su normali 
cassette magnetiche o per 
inserire programmi già pronti 
Si cottega direttamente con 
il VIC 20 (o con Commodore 64). 

L 120.000 + IVA. 


COMMODORE 64 

64 K dì memoria incorporala 
16 colori in tastiera. Aita risoluzione 
grafica. Effetti tridimensionali Sintetizzatore 
sonoro professionale Capacità di un secondo 
processore. Completa gamma di periferiche e interfacce. 

Si collega con qualsiasi televisore o monitor professionale L. 625.000 + IVA 


ft Commodore 

v COMPUTER 


0 0 

V 


MONITOR A COLORI 

Per il tuo compt/fer, un monitor 
professionale ad alta risoluzione 
con schermo da 14" e audio 
incorporato (Commodore produce 
anche monitor monocromatici a 
fosfori verdi da 12 “) 

L 690.000 + IVA 



Scrive, disegna, fa i grafici, stampa a 4 colori. 




dt diverso formato. 



Cerchi concentrici. 



Tri angoli rotanti. 


Lirn DI INFORMARTI CHE ABBIANO 
RI CE MUTO lA njq LETTERA DFl 13,3.83 
NELLA QUALE CI SPIEGAMI QUANTA C ufi fi HA[ 
& QSTQ NEL RISOLTE IL PfjjbBLEBft CHE 
BEN CI E 1 NOTO , 

VO-REJ COMUNQUE AGGIUNGERE ALTRE COSE A 
RIGUARDO E SÉ E PUNIBILE- DARTI Uh AlU- 
T Q SUl PROBLEMA DELLA RISOLUZIONE 01 
PARTICOLARI DISEGNI UTILIZZANTE DEI 
UERI E PROPRI PLQ T T€R. 

HO SCOPERTO CHE LA CpHPIOOOHE UENDE 
UN PlOTTER Chi AMATO 1529 . 


Corrispondenza. 



Un cono formato da cerchi 


Nuovo! Dalla 
Commodore. È arrivato il 
primo ptotter/stampante che 
puoi coiiegare direttamente 
al tuo VIC 20. o al 
Commodore 64. Provalo, e 
scatena tutta la potenza del 
tuo computer. . . guarda 
quante cose sa fare. 


Disegna a 4 colori, figure 
anche compiesse; e sa 
tracciare disegni molto 
grandi, di 30-40 cm. 

Fa i grafici. Ha una grafica 
da piotter estremamente 
accurata con una altissima 
risoluzione (dì 0,2 mm) 
perchè usa 4 pennini che 


stampano formando una 
linea continua. È una vera 
stampante! Stampa i normali 
caratteri in quattro differenti 
misure automaticamente. 

Con opportuni comandi sul 
computer, stabilisce le 
dimensioni dei caratteri, 
le maiuscole o le minuscole. 









mza del tuo sistema 
stampante a colori. 


Una mania in mano ai 
tuo computer 1 fi 
plotter/stampante 1520 
disegna a colon latte le 
figure che vuoi. Traccia 
con assoluta precisione 
grafia, schemi tecnici di 
architettura e ingegneria 
planimetrie ecc É una 
vera stampante con tanti 
caratteri in diversi 
formati 



Disegna e scrive sui due 
assi È compatto, 
leggero, affidabile, dal 
funzionamento silenzioso 
È firmato Commodore 


fs Commodore 

COMPUTER 


Una matita in mano al tuo computer. 



Una scacchiera. 




Grafici a colori . 



Progetti d ambiente. 


Piante , planimetrìe, schernì tecnici 


istogrammi. 


Ma non solo. 

Può stampare sia in 
orizzontale - fino a un 
massimo di 80 caratteri 
per riga - che in verticale, 
usando l'altezza della 
carta ! 

Così potrai scrivere testi 
di qualsiasi ‘ 'giustezza ’ ' 


tipografica. 

È facile da usare: 
è sufficiente un po 'di 
familiarità con il linguaggio 
BASIC e con i princìpi delia 
programmazione ; e potrai 
scrivere tu stesso i 
programmi per U tuo plotter, 

E poi confronta il prezzo: 


il concorrente più vicino 
costa almeno tre volte 
tanto... e il nuovo plotter 
Commodore è anche più 
compatto e più leggero. 

Non c ’è miglior regalo 
che puoi fare al tuo sistema. 

Commodore Italiana 
S.p.A. Tel. (02) 618321. 




soma 




E scegli tra cento 


cento 


programmi per il gioco... 

Dal favoloso catalogo di giochi e programmi del VIC 20: 




SFECTRE 


VIC Sì Ai 


MATEMATICO/ 

SCIENTIFICO 


JUPITER LANDER HOME BABY SfTTER 


... per lo studio e 

per la professione. 




INTRODUZIONE 
AL BASIC. PARTE i 

r Vr j - , 


■a 'j vf :cv.i »jta :■ 
iwx-wwmidh AuiDoemincn 



Dal vastissimo repertorio di programmi per il Commodore 64: 



f: conurmda'G 



SIMONS' 

BASIC 

i-, am 


■* '-■■w.U HtfK 
Aftì in< .NMI 



D 



l’B II "i ì T 1 


Corso di 

programmazione 


Il linguaggio 
didattico 
piu divertente 


Per accedere L mg ua ggto d i 

a iurta la potenza programmazione 

del computer della I V a generazione 



Pianificazione 

manageriale. 



w 

Facile 

registrazione dati 


tre 


* comn 


Punta un dite 
e Commodore fa 



Per creare 
tutti i testi che vuoi 
(con manuale). 


Direttamente 
dalie sale^giochi 


Calcio spettacolo 



Commodore 

COMPUTER 


Commodore italiana S.p.A - Tel { 02)618321 



totale di quarantotto celle riservate, di cui la prima 
indicata da T$(0,0) e l'ultima da T«S,7). 

Notate, in ogni caso, la memoria viene riservata 
per le dimensioni massime del vettore, anche se una 
particolare esecuzione dei vostro programma doves- 
se richiedere una dimensione inferiore a quella ri- 
servata, Se la cosa non è accettabile, prima di usare 
l'istruzione DIM, potete introdurre dei valori per 
gli indici di variabile (sì parla in questi casi di di- 
mensi ona mento dinamico ). 

Notate, che, durante l'esecuzione del program- 
ma, quest'operazione può essere eseguita una volta 
sola. Ad esempio, l'istruzione DIM riportata qui di 
seguito 

40 DIM X(Kh T$(L.M) 

richiede che K. Le M siano introdotti al momento 
de ìl'esec azione del programma. Ora, in un pro- 
gramma è possibile usare più di uri' istruzione DIM, 
ma è indispensabile che in esse il nome di un vetto- 
re non compaia più di una volta. Per esempio, le 
due istruzioni: 

50 DIM B$(30,8),A$( 60 ),A< 20,20) 

60 DIM D( 100X01(5,7,6) 

sono corrette, mentre non lo sono le istruzioni 

70 DI M B$( 30 ,8 ), A Si 60 ì,A( 20, 2 0 ) 

80 DIM DOGO >,A( 20.20 ),CS(5, 7,6) 

la cui esecuzione determina un errore dovuto al 
fatto che À( 20,20) compare in entrambe, 

L' importante osservare che l'istruzione DIM 
può essere usata per superare l'allocazione di me- 
moria automatica neirimpiego di vettori di piccole 
dimensioni. Se, ad esempio, il vettore A deve con- 
tenere un massimo di sei celle e il vettore B un 
massimo di quattro, con l'istruzione DIM A(5h 
Bt3), è possibile ottenere un'allocazione di memo- 
ria esattamente su misura con un notevole rispar- 
mio rispetto all'area di memoria dì undici celle per 
ciascun vettore che verrebbe allocata automatica- 
mente. 

Loop FOR annidati 

l loop FOR possono essere contenuti intera- 


mente in altri loop FOR, come riportato nella ta- 
bella 5.8. 


Tubali* 3 Dati in ingresso per il programma 'Loop POR anni 

dati"' 


ì 2 : 

3 4 

5 6 

7 8 

9 10 11 12 

j TsbaEI*4 Tabella da generare 


! 5 

9 

i 2 6 

10 

3 7 

II 

4 8 

12 


Questa possibilità è particolarmente utile nella 
manipolazione dei vettori. Pei esempio, i dati ripor- 
tati nella tabella 8.3 devono essere introdotti in un 

vettore bidimensionale chiamato A e generati in 
uscita nella forma riportata nella tabella 8.4. Per 

raggiungere io scopo, il programma tornito nella 
tabella 8.5 utilizza loop FOR annidati. Provate 
dunque ad eseguirlo. 


Tabella 5 Programma basato sull'impiego 

di loop FOR annidati 

10 DUI FK3.4) 


20 DFtTft 1,2,3, 4, 5, 6,7,8.* 

h 10,11, 12 

30 FOR 1=1 T0 3 


40 FOR J=1 TG 4 

■■ 

50 RERB R<I,3) 


60 NEXT J 


70 NEXT I 


80 FOR 1=1 T0 4 


40 FOR J=1 TG 3 


Ì00 FRINÌ fKJ; I)j 


110 NEXT J 


123 FRINÌ 


130 NEXT I 


1 48 END 

a. 
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Esercizi 

Scrivete i programmi per ciascuno dei problemi 
riportati qui di seguito. 

■ Problema I Copia di un vettore 

Copiate un vettore A che contiene N elementi 
in un vettore B, delle stesse dimensioni di A, ma in 
ordine capovolto. Se. ad esempio, N é uguale a 2G, 
A(2Q) andrà in B( 1 ), A( 19 ) in B( 2 ), ecc. Supponete 
che N sia sempre un multiplo di 5 e fate in modo 
che il vettore H sia costituito da righe di 5 colonne. 

Il programma è riportato nella tabella Al 3, 

* Problema 2, Somma di elementi 

Sommate gli elementi sulle diagonali di lui vet- 
tore MxM. Fate in modo che, quando l'elemento 
centrale deve essere aggiunto una sola volta, M sia 
dispari (oppure pari), i seguite una prova del pro- 
gramma eseguito prima con un valore di M dìspari e 
poi con un valori pari. Generate quindi l’uscita del 
vettore e la somma degli elementi sulla diagonale 
per entrambi i casi. 

TI programma è riportalo nella tabella Al 4. 

* Problema J. Ordinamento di un elenco di numeri. 

Eseguite Ford ina mento dì N numeri, contenuti 
in un vettore A. secondo un ordine numerico 

ascendente. Usate il solo vettore grande abbastanza 
da contenere tulli i numeri che possono essere in- 
trodotti. Nella fig. S I troverete lo schema a bloc- 
chi del metodo. Ciò implica la collocazione del nu- 
mero piu allo alla fine delTdenco mediante lo 
scambio del numero più alio di ciascuna coppia 
delfelenco, In altre parole, se l'elemento Al!) è 
maggiore di A(2l, il loro contenuto viene scambia- 
to in modo che il valore più allo venga a trovarsi iti 
Ai 2). A questo punto il valore in À(2) viene con- 
frontato con quello in Al 3) e, se necessario, scam- 
biato. Il secondo passaggio attraverso l'elenco di 
numeri è più breve datti che alla fine del primo 
A(N ) conteneva il valore più alto de U’e letico e 
quindi non deve essere di nuovo confrontalo. Se 
durante il passaggio non si hanno scambi (cioè E = 
0g l'elenco si trova nel Ford ine richiesto e non e 
necessario eseguire nuovi passaggi. 


Mettete in uscita l'elenco di numeri nel loro or* 
dine originario e poi net nuovo ordine di sistema- 
zione. Per poter avere un cerio numero di elenchi 
diversi fra loro da sistemare, usate i dati riportati 
qui dì seguito e quelli che creerete da voi. 

Dati da utilizzare: 

1 5 J 2 .3,20,22,22,9,4.23.2,0,-25 .17.18 

Il programma è riportato nella tabella ÀI 5 e, 
come vedrete, per spostare il cursore nell'angolo in 
alto a sinistra dello schermo senza azzerare que- 
st’ultimo, utilizza il! carattere HOME inserito nel- 
E istruzione PK1NT (linea 2GQ). 
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Commodore 64, 


Baroni : Rosso 

i 

Palloni Gialli 

a battaglia sì svolge tra due gioca- 
tori che controllano due biplani per 
mezzo di due joysticks. Quello della 
porta 1 controlla l'aereo rosso (in al- 
to a sinistra aJF inizio del gioco ), men- 
tre il joystick nella porta 2 controlla 
l'aereo blu (in alto a destra all'inizio 
del gioco)* 

P er sparare occorre premere il pul- 
sante, tenendo presente che ì colpì 
hanno una gettata limitata. Se un ae- 
reo urta il pallone frenato giallo, in- 
distruttibile, oppure, perdendo quo- 
ta, tocca le case, esplode. 

Ci si può nascondere nella parte 
alta dello schermo (tra le nuvole,,.) e 
piombare sull' avversario attaccan- 
dolo di sorpresa. 

E 9 

possibile nascondersi anche 
nella parte sinistra dello schermo, ri- 
cordandosi però che la routine che 
controlla se l'aereo si è abbassato 
troppo e ha toccato le case è sempre 
attiva. 

,/^irinizio del gioco viene posta la 
domanda * Quante volte bisogna di- 
struggere r avversario per vincere? 

(i/9)* che offre una ampia possibili- 
tà di scelta circa la durata del gioco, 
permettendo dì impostare diverse 
tattiche. 

D a ricordare che quando gli aerei 
si scontrano tra loro il contatore di 



esplosioni sì incrementa di 1 per par- 
te: la battaglia può anche finire pari. 

ella parte alta dello schermo ven- 
gono visualizzate le scritte «BLUE 
EXPL./RED EXPL.» seguita da un 
numero che ìndica quante volte è 
esploso l'aereo blu e quante volte è 
esploso l'aereo rosso. 


G li aerei sono piu veloci del pallo- 
ne frenalo solo quando sì muovono in 
diagonale. Fate attenzione a non la- 
sciarvi trarre in inganno dal suo 
movimento. 

Andre» I zzati i 

Via Cesarea, 10/23 1612! Genova 
lei. 010/562187 
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100 REM ******************************* 
110 REM le* BARONE ROSSO ** 


120 REM ** 


130 REM **$ONO NECESSARI DUE JOYSTICK** 


1^0 REM ** 

150 REM ** GIOCO PER COMMODORE 64 
160 REM ** 

170 REM ** DI ANDREA IZZQTT1 
130 REM ** VIA CESAREA 10/23 


** 
** 
** 
* * 
** 
** 
** 
** 


190 REM ** 
200 REM ** 
£ 10 REM ** 


16121 GENOVA 
TEL . 0 1 0/5 SE 18 7 


£20 REM ******************************* 


230 GO5UB2070 

£40 PX = 15 ! PY= 100 *K=35 : Y^50 : X =£30 : Z =50 t R 1 *0 : R£~0 : D 1 - ì : 
£50 V =53243 i M=2040 

£60 FOKEM, 19£ : FOKEE042, 135 : POKE2044 , 196 IFGKE2045 , 197 

£70 POR 1 = 12288TO 12350 ìREADA ì POKEI ,A i NEXT 

£S0 DATA0 ^0/0^0^0,O,0,0/0,0 f 1£8 ,0 ,0 , 1 £6 , 0 ,0 

£30 CATA20,0, 0,255,3, 129, £55, 7, 191 ,£55,255 

300 DATA 191 , 12 9,249/2 55 , 123,252,131 ,£55 ,£55 

3 10 DATA 191 ,255 ,£55 , 128 ,63 ,0 ,0 ,7£ ,0 

320 DATA© ,96,0,0,240,0,0 ,240,0,0,36,0 ,0,0, 0,0, 0,0 

330 FOP I - 1£35£T0 t£4 14 s READB i POKE I ,B : NEXT 

340 DATA© ,0,0 ,0 ,0, 0,0,0 ,0,0 , 126,0,0, l £6 ,0 ,0 

350 DATA40,0, 133,255,0,255,255, 128 

380 OATA255 ,255 ,£5£, 191 , 1 £8 ,£53 ,63, I£3,£55 

370 DATA255, 255, 253, 255, 255, 252,0, 18,0 

380 OATA0 , 10,0,0,6,0,0, 13,0,0, 13,0,0,8,0,0,0,0,0,0,0 

390 RESTORE 

400 POR I = 1 £4 1 STO 12478 l READC ! POKE I ,C s NEXT 
4 10 FOR I = 1£480TO 12542 JREADD: POKE I ,D ! NEXT 
4E0 FOR I * 1 2544TD 12606 ì READE : POKE I ,£=NEXT 
430 OATA0, 0,0, 0,0, 0,0, 0,2, 15,255, 13,31,255 
440 OATA30,63 ,£55, 190, 127,255, 130 
450 DATA 127 ,255_,254 ,255 ,255 ,254 ,255,255,254 
460 DATAE55 ,255 ,£54 ,255 ,255 , £54 ,255 ,£55 ,254 
470 DATA 127 ,255 ,254 , 127,255, 190,63,255,190 
480 0ATA31 ,255,30, 15,255, 14, 0,0, £,0,0, 0,0, 0,0 
4 30 FOR I « 1E60STO 1E670 - REAQF : POKE I ,F : NEXT 
580 OATA0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 
5 1 0 OATA0 ,©,0, 0,0 ,0,0,0, £4, 0,0, 60, 0,0,1 £6,0 
520 DATA0,60 ,0,0 ,24,0 ,0 ,0 ,0 ,0,0,0 ,0 ,0,0,0 
530 DATA©, 0,0, 0,0 ,0 ,0,0,0 ,0 ,0 ,0 ,0 ,0,0, 0,0 
540 FOR J = 12672TO 12734 s READG : POKE I ,G£NEXT 
550 OATA0,0, 128,0,67,0,0, 139, 12,0, 193,28 
560 DATA4 ,223,56,35,255, 120,31 ,254 ,£40 
570 DATASI ,255 ,242 ,47 ,255 ,240,7,255 ,228 ,31 
530 DATA255 ,224 , 1 £7, £55, £40 ,63 ,255 ,244 
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530 

600 

G10 

820 

S3G 

840 

650 

S60 

670 

BS 0 

880 

700 
710 
720 
730 
740 
750 
7B0 
77© 
7S0 
73© 
800 
Si© 
820 
S 38 
848 
850 
860 
870 
S80 
830 
300 
310 
320 
330 
340 
350 
3G0 
370 
980 
3 B 0 
1000 


DATA 14 ,255, 188, 16,247, 166,2 ,231,164,0 
DATA 135, 144,3,21 1 , 19£ , 85 , 123 ,200 
DRTftB t 0 , 12 © , 0,0 f 0 

P0KEV +-33 ,6 ! PQKEV +4 1 ,2 : POKEV +43 , 7 i POKEV +44 , 0 i POKE V +£ i ,53 
POKE53280 , 14 s PQKE5328 1 , 14 t POKÉV+ 10,0: PDKEV + 1 1 ,0 
RI =0 = R2 = 0 : L=0 ! L 1 =0 
GOSUB1B90 
PRINT'L 
FR I NT H 
P F INT V 


u uuuuyy u y y y uuu l 1 y v u u o 


t- 


rm 


PR I NT " a 

PR I NT M a 
PRINT M a 
PRINT^a 


m- +• i 

m ì 


i 


a 

a 

a 


/ 

j a 
i a 
i a 


/ ^a 


/^a 


it 


i 


■ +* 


t i a 
e i a 


■ + + i 
« Si i 


a 

a 

a 


++ r 

E" 

I r 


REM REGOLO " _ _ 

PX“ 15 * PY- ì 00 * K = 35 : Y=50:X=230=2 =50 

J 1 *PEEK< 56320 > : J2=PEEKC 5638 1 ? : F 1 = J 1 R ND 18 ! F 2= J2RND i 6 
FRI NT J3E3B LUE EXPL , * ; R 1 MRBt £5 ) ,P £RED EXFL«">R8 
J 1 * 15-C J IRNO 15 ) i J2 = 15-t J2RND 15 > 

ONJ 1GOTO800 ,810 ,820 ,330 ,348 ,850 ,360 ,870,880,880 
GGTGS00 

Y = Y-5 = GOTO 9 80 

Y = Y + 5 i GOTO900 
GOTG300 

X =X ”5 i POKEM , 192=01*1 JGOTO900 
X = X-5 ! Y»Y-5* POKEM, 138=01=1 : GOTO300 
X=X-5 : Y~ Y+5 = POKEM, 192 = D1 = 1 : G0TO900 
GOTG300 

X = X + 5 = POKEM, 193=01=2= GOTO900 
X = X + 5 = Y = Y-5 = POKEM, 193 = 0 1 *2 f GOTO900 
X «X +5 s Y = Y + 5 : POKEM, 193 = 0 1 =2 ! GGTD900 
ONJ2GOTO9S0, 330, 940, 350, 360,970, 930, 330, 1000,1010 
GOTO 1080 
Z = Z “5 = GOTO 1020 
Z-Z +8 ! GOTO 1028 
GOTO 1020 

K=K-5 = FDKE2042, 134=02=1 =00X01020 
K=K ~5 = 2 =2 -5 = POKE2042 , 194:02=1 = 6QTD1020 
K =K -5 *2™Z +5 = POKE2042 , 194=08=1 = 30X0 1020 
GOTO 1020 

K s K +5 = POKE2048, 1 35 : D2 = 2 = GOTO 1023 
K = K *5 : Z-Z-ti POKE 204 8 ,135 = 02 *2 : GOTO 1 086 
1010 K*K+5EZ=2+5= POKE2042, 195=02=2=60X01020 
1020 1FCF=2T | ^EN1040 

1030 PX=PX+4 :PY = PY + 4 = PC=PC + ì i GOTO 1050 

1840 PX=FX+4 SPY»PY"4 !PD*PD+1 

1050 IFPC > 14THENCP = 2 = PC = 0 

1060 IFPD;M4THENCP= 1 s P D e 0 

1070 IFPX >243THENPX* 15 

1030 I FX < 0 THENX =0 

1098 I F Y< 8 THENY s 0 
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■ 1 1 — " 

1130 IFX>£55THENX-£55 

1110 I FY > 1 S4THEN13S0 s REM EF 1 

1120 I FK< 0THENK=0 

1130 IF2< 0THENZ =0 , 

U40 IFK >255THEFK=255 

1150 IFZ > 184THEN1490SREM EP2 

1 160 GOSUB2480 

1170 IFF 1 = 16THEN1270 

lise GQSUB 20 S 0 : 6QSUB2S50 

1190 IFD1 = 1THEN1210 

1200 FORI *XTQX+30STEP3: GOTO 1220 

1210 FOR 1 =XTOX-80STEP -8 

1220 IFK 0OR I >255THENl260 

1230 POKEV+ 10, I : POKEV +1 1 ,Y 

1240 I FPEEK< V + 30 ) =36 THE NI 490 : REMEF2 

1250 NEXT 

1260 POKEV + 10,0: POKEV * 1 1 ,0 i GOSUB 1930 

1270 IFF2= 16THEN1370 

1280 GOSUB20G0 : GOSUB2S50 

1230 1F02= 1THEN1 310 

1300 FOR I=KTOK+30STEP3: GOTO 1320 

1310 FOR I =KT0K-3èSTEP-8 

1320 IF K 0ORI >255THEN1370 

1330 POKEV + 10 , 1 ! POKEV + 11,2 

1340 IFPEEK< V + 30 > =33THEM1380 * REFIEP 1 

1350 NEXT 

1363 POKEV + 10,0: POKEV + 1 1 ,0:GO3U61330 

1370 GOTO 750 

1380 GOSOB2060 

1330 POKE2040 , 1 33 ! GOSUB2380 

1400 Q*G + I i IFQM0THEN1450 

14 10 POKEV *33 ,2 : FOR I = ITO 100 ! NEXT 

1420 POKEV + 33 ,7 - FOR 1 = 1 TO 100 ! NEXT : 

1430 POKEV + 33 ,0 <VoR 1 = 1 TO 100 ’ NEXT 
1440 GOTO 1 400 

1450 POKEM, 132 : POKEV +33 ,6 : POKEV + 10,0: POKEV + 1 1 ,0 : G=0 

1460 R 1 =F 1 + 1 ! IFR 1 > = NTHEN 1750 

1470 GOSUB 1390 

1430 GOTO740 

1430 GOSUB2060 

1500 POKE2042 , 138 ! GQSUB2330 

1510 G = G! + 1 i 1FO10THEN1560 

1520 POKEV +41 , 2 ! FOR 1*1 TO 1 00 : NEXT 

1530 POKEV + 4 1,7! FOR 1 = 1 TO 100 ! NEXT 

1540 POKEV +4 1 ,0 SFORI = ITO 100: NEXT 

1550 GOTO 1510 

1560 . POKE2042, 195: POKEV +41 ,2 : POKEV + 10 ,0 : POKEV + 1 1 ,0:D=0 

1570 R2=R2+1 * IFR2 >=NTHEN1760 

1580 GOSU81390 

1530 GOTO740 

1600 GOSUB20S0 
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1610 POKE2042 , 193: GOSUB2380 : PQKEM , 193 
1620 0 = 6+ 1 : IFQM0THEN1G70 

1630 POKEV+4 1 ,2 :PDKEV+33,0 : FOR I = 1 TO 1 00 : NEXT 
1340 PDKEV+4 1 , ? : POKEV+39 ,2 : FOR I = ITO 100 = NEXT 
1650 POKEV+4 1,0: POKEV+39 ,7 : FOR 1 = ITO 100 : NEXT 
1660 GOTO 1620 

1670 POKE2042, 195 = POKEV+4 1 ,2 : POKEV + 10,0: POKEV + 1 1 ,0 
1680 0=0 :POKEM, 192 : P0K.EV + 3S ,6 
1690 R ! =R 1 + 1 :R2=R2+ 1 


1700 IFR 1 >=NANDR2>=NTHEN17?0 
1710 1FR 1 >=NTHEN1750 
1720 I FR2 > =NTHEN 1760 
1730 GOSU81990 
1740 COTO740 

1750 PRINT"3? E 0 LI I N S 1 G0SUB24 1 B : GOTO 1 760 
1760 PR I NT ” 36 LUE U I N S | H i i GOSUB24 10 : GOTO 1 780 
1770 PRINT"LA BATTAGL I A E' PARI ! ! “ : G0SUB24 10 
1730 FOR 1 = ITO 1 000 : NEXT 
1790 POKEV +2 1,0 

1800 PO K E 53 2 80 ,2 s PQKE5323 1 ,2 : PR INT 11 S" 

1610 PR IRT J— W " 

1920 PR INT” 1 VOLETE GIOCARE ANCORA ?" 

1830 PR INT “US ( 3 / IN) * 

1340 GETU* 

1850 IFU$= “S “THENGOSUB 1920 : G0T0620 
1360 1FU^= "N" THEN1 660 
1870 GOTO 1340 

1330 P0KE5323 1 ,6 : P0KE53280 , 14 : PR INT" U" 

1330 PR 1 NT " . IMCTTOIMIMB ARRIVEDERCI AL PROSSIMO VOLO 

1900 FORI = ITO 1000: NEXT 


1910 END 

1920 PR TNT" M QUANTE VOLTE BISOGNA DISTRUGGERE 1 ’ 

1930 FR INT “SS L'AVVERSARIO PER VINCERE ?" 

1940 PR TNT* MB ( 1/9) 

1 950 GETNS : I FNR= " " THEN 1 950 



1960 N=VAL(N*): IFN< 1 ORN>9THEN1950 
1973 PRINTTABC 15)N 

1930 FOR I = ITO 1000: NEXT :PR INT" LI* : RETURN 

1990 9=54272 : PQKES , 3 ! POKES+ 1 ,2 : POKES+2 ,0 : POKES + 3 ,3 >P0KES+4 ,0 

2000 POKES + 5 ,0 : POKES+S , 240 ! POKES + 7 , 12 : POKES +8 ,2 : POKES + 9 ,0 : P0KES + 10 ,4 

20 10 POKES +1 1 , 0 s POKES + 12,0: POKES# 13 , 132 : POKES + 14 , 16 : POKES + 15 ,2 

2020 POKES + 16,0 : POKES + 17,6: POKES + 18,0: PQKES + 13 ,0 : POKES + 20 ,64 

2030 POKES +21 ,0 : POKES + 22 ,30 ! POKES +23 ,243 : POKES+24 ,3 1 

2040 POKES +4 ,65 : POKES + 1 1 ,65 : P0KES + 1 8 ,65 

2050 RETURN 

2060 S* 54 272 s FDRF =STQS+£4 : ROKEF ,0 : NEXTF : RETURN 
£070 POKE532S0 ,£ : PCKE532S 1 ,£ :PR INTCHR« 14) 

2080 PRINT”3U a * * * BARONE ROSSO# # * " 

2030 PR IMT- «MR I IFPRA AEREA TRA DUE BIPLANI." 

£100 PR INT" Ma . A BATTAGLIA SI SVOLGE DURANTE LA PRIMA" 

2110 PR INT "GUERRA MONDIALE NEL CIELO SOPRA AD * 
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2 120 FRI NT "UN PAESINO." 

2130 PR INT"SMSONO NECESSARI 2 JOYSTICKS i * 

2140 PR INT"HIL JOYSTICK NELLA PORTA 1 CONTROLLA “ 

2150 PR INT*'L ‘ AEREO ROSSO.* 

2 1G0 PR I NT “HI L JOYSTICK NELLA PORTA 2 CONTROLLA ” 

2170 PRI NT "L'AEREO BLU." 

2180 PRINT-HH3E L'AEREO URTA IL PALLONE GIALLO" 

2 1 33 PR INT "AEREOFRENATO < INDISTRUTTIBILE) ESPLODE." 

2200 PR INT "SPREMERE UN TAST0 PER CONTINUARE" 

2210 GETA*i IFA*«* “THEN2210 

2220 PRINT"J a * * * BARO NE ROSSO * * * " 

2233 PR INT "SHffllSE L'AEREO SI ABBASSA TROPPO E TOCCA " 

2240 PR INT "LE CASE , ESPLODE" 

2250 PR I NT "SBHE ' POSSIBILE NASCONDERSI NELLA PARTE” 

2260 PR INT "ALTA E ■ NELLA PARTE SINISTRA DELLO" 

2270 PR I NT " SCHERMO . " 

2230 PR INT "HI COLPI HANNO UN GITTATA LIMITATA." 

2290 PR INT" 4BBHB 1JON DIVERTI ME NTfl | f » ■' 

2300 PRINT"SHSpREMERE UN TASTO PER INIZIARE'' 

2310 SETA*: IFA*= * "THEN23 IO 
2320 PRINT" J"CHR*< 142> 

2330 GOSUB1320 

2340 P0KE53281 ,5 ! POKE53230 ,5 

2350 print " . paroma un attimo di pazienza ..." 

2360 PRI NT " Marami STO MEMORIZZANDO I DATI.” 

2370 RETURN 

23S0 P0KE5427G ,0 '• P0KE54H77 ,0 : P0KE54278 ,0 : PDKE54277 ,0 : P0KE54273 ,0 
2390 P0KE5427? ,23: P0KE54273 , i : P0KE54273 ,2 : P0KE54272 , 1 : P0KE54296 , 15 
£400 P0KE54276, 129: RETURN 

2410 P0KE54273 ,0 : P0KE5427S , 0 : P0KE54277 ,0 : R0KE54273 ,240 : P0KE54276 , 17 
£4£0 L=0 

2430 L1=0:L=L+1 !ROKE53280,L 

2440 L 1 =L 1 + I : P0KE54273 , L *L 1 : IFL K I5THEN2440 
2450 IFL< 15THEN2430 

2460 P0KE54273 ,0 ì P0KE54H76 ,0 ! P0KE54296 ,0 
2470 POKE53230, 14 : RETURN 

2480 POKEV,K: POKEV+1 , Y: POKEV +4 ,K : P0KEV+5,Z :F0KEV+8 ,PX : POKEV +3 ,PY 

2430 IFPEEK’C V +30 ) * 1 7ANDPX-X >70THEN2520 

2500 IFPEEKC V+30)= 17AN0PX-X< -70THEN2520 

2510 IFPEEKC V + 30 ) = 17THEN13S0 : REM EP I 

2520 IFPEEK< V+30 J=20THEN1490: REMEP 2 

£530 IFPEEKC V + 30)=5THEN1600 : REM EP 1 & £ 

2540 RETURN 

2550 S I *54272 ì FL = S I : FH = S I + 1 : TL = S I +2 : TH = S 1 +3 
2560 W=S I +4 : A=S I +5 : H=S I +6 ì L =S I +24 
2570 FORT* 15TQ0STEP - 1 

2580 POKEL ,T : POKEA , 15: POKEH , 0 ì POKEFH ,40 : F’OKEFL ,200 : POKEW, 123:NEXT 
2500 POKEld,0: POKEA, 0 
£600 RETURN 

READY. 
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Vie 20 & Commodore 64 


Caleidoscopio 


100 REM #** CALE IOOSCOP IO *** 

110 REM *** VERSIONE COMMODORE 64 *** 

120 REM *** ADATTAMENTO DI A.D.S *** 

130 : 

140 PR 1 NT " J" f : CL< 0 > =ASC< * ">+128 

150 CLC 1 >=ASC< "V >-64 :CL< 7 ) »ASC< " * ) sCLC 3 > =ASC< *-* > - 128 

160 FOR I “55296T056295 i POKE LL NEXT 
170 CLC 4 >=ASCC *+-“ >-128 
180 CLC 5 > = A5CC " |’)-128 

1 90 CLC 2 > * ASCC " > -64 S CLC 6 ) =ASCC ■ « * ) 


200 NI = 1024 : NE =40 s N3 = . 625 ’• N4 =39.9999 
210 FORU=3TO50 SFORI * ITO 19 : FOR J*0TO 13 
£20 K = I + J : C=CL< C J *37C I +3 > + 1 * 14 / 1 2 > AND? > 

230 Y1 =N1 +N2*INTC N3* I ) : Y2=N1 + N2* INTC N3*K ) 
240 Y3-N1 +N2* INTC N3*C N4~ 1 > > 

250 Y4=N1 +N2*INT( N3*< N4-K > > 

260 FOKE 1 +Y2 ,C f POKEK + Y1 ,C ! POKEN2 - 1 +Y4 ,C 
270 P0KEN2-K +Y3 ,C s POKEK + Y3 ,C ì P0KEN2 - I +Y2 ,C 
280 R0KE1+Y4 ,C tPOKEN2 -K+Yl ,C 
290 NEXTJ , I ,W:GOTO210 

REAOY. 

100 REM *** CALEIDOSCOPIO *** 
110 REM *** VERSIONE VIC 20 SENZA *** 
112 REM *** ALCUNA ESPANSIONE *** 

120 REM *** ADATTAMENTO DI A.D.S *** 
130 : 


D ue brevissimi listati che genera- 
no, sul video del computer, graziosi 
disegni casuali che simulano l’effetto 
dei caleidoscopi di antica memoria. 
Ideali come « macchie » di colore du- 
rante feste, in discoteca ecc. 


140 PRINT" J" I !CL< 0>=ASC< " *> + 128 

150 CLC 1 > =ASCC "V* > -64 1 CLC 7 > =ASCC " " > i CLC 3 ) = ASCC “ — “ > “ 1 2B 

160 FOR I «0 TO 22 *23 1 POKE I +36400 ,0 ! NEXT 
170 CLC 4 ) =ASCC ■+" >-128 
180 CLC 3>=ASCC " I " >-128 

190 CLC 2 > “ASCC ■*" > -64SCLC 6> =ASCC ’ » * > 

200 Ni *7680 s N2=£2 : N3=23/22 s N4=£ 1 . 9S9839999 
210 FORU!=3TO30 ! FOR i =0TO 1 9 ! FOR J =0TQ 19 
220 K= I + J :C=CLC C J*37< I +3 > + I *14712 > AND7 > 

230 YI*N1 +N2 * INTC N3* I > J Y2=N1 +N2* INTC N3*K > 

240 Y3 = N1 +N2* INTC N3*< N4-I > > 

250 Y4=N1 +N2*1NT( N3*( N4-KJ > 

260 P0KEI+Y2 ,C= POKEK +Y1 ,C:FOKEN2- 1 +Y4 ,C 
270 ROKEN2 -K +Y3 ,C i POKEK +Y3 , C i P0KEN2 - 1 +Y2 ,C 
230 POKE I +Y4 ,C ! POKEN2-K+Y 1 ,C 
280 NEXTJ , i ,W:60T02 10 

READY. . . 
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Scttsfo ziott&fóf 

scegli 2 cartridges Commodore 

per il tuo VIC -20 

a sole 1 2.500 S A 

... e risparmi subito 65.000 lire! 


Segna sui modulo d’adesione i codici delle 2 cartridges che preferisci (più t di riserva) tra quelle qui 
di seguito elencate: questa é un occasione irripetibile per aderire all APCO assicurandoti cosi, finché 
vorrai, tutti i suoi vantaggi esclusivi! 

Codice Titolo originale della cartridge Commodore e descrizione 

1901 A VENDER - La tua astronave difende la terra dall'assalto degli invasori spaziali, sparando all'Impazzata 

1905 COSMIC CRUNCHER - Una missione spaziale a bordo del tuo Crunctier. opzioni e vari livelli di difficolta 

1907 SUPER LANDER - Solo la tua abilità pud far atterrare l'astronave nei crateri di un pericoloso pi enei a 

1910 RAT RACE - Guida illuo lopolina tramite il radar alla ricerca dei formaggi evitando le insidie del percorso 

1912 MOLE ATTACK - Sei un agri collere che deve colpire con una mazza le talpe appena, escono dalle buche 

1913 RIDE QN FORT KNOK - Una pericolosa avventura nei labirinti e corridoi di Fort Kno* per la corsa all oro 

1914 ADVENTURELANO Dovi andare alla ricerca dei 13 tesori nascosti, portandoli al sicuro tra mille pencoli 

1915 PI RATE COVE - Un appassionante e pericolosa avventura nell'infido covo dei pjrati 

1917 VOODOO CASTEL - Un classico dell'avventura che nell antico castello metterà alla prova la tua abilita 

1918 THE COLfNT - Sei intrappolato nel castello del Conte Dracula e devi difenderti dai suoi continui attacchi 

1919 SARGON CHE55 - Sfida il computer nel gioco degli scacchi- puoi scegliere fra vari livelli di difficollà 

1923 OMEGA RACE Sei un guerriero di Omega e devi difenderti dallinvasione di Androidi muniti di laser 

1924 GORE - Devi distruggere l'esercito Gorfien che avanza in quattro differenti ondate dai droidi all'astronave 
1926 MENAGERIE - Aiuta le simpatiche pulci a saltare via velocemente per salvarle da leroci animali 


GRATIS IL NOTIZIARIO ‘ARCO NEWS" 

Riceverai gratis periodicamente il notiziario illustrato "Apco News 
Potrai cosi scegliere j videogiochi che vorrai tra quelli presentati, 
Saranno sempre i giochi piu attuali, su cassetta o su cartuccia quelli 
di cui tutti parlano e che ai trovano in testa nelle classifiche di vendi- 
ta d'Europa e d America, Inoltre ARCO ti segnalerà periodicamente 
il videogioco migliore, in offerta speciale, che. solo se tu lo vorrai, 
riceverai automaticamente a casa tua, ad un prezzo particolarmente 
vantaggioso, senza neppure doverlo ordinare. 

Sull' -Apco News- troverai inoltre tantissime offerte speciali, libri, Uti- 
lities. periferiche, accessori, per arricchire sempre più d tuo sistema 
e fé tue conoscenze Tutti i prodotti offerti sono selezionati fra i mi- 
gliori produttori e garantiti totalmente. 


FORTI SCONTI 

Solo ARCO h propone i videogiochi piu interessanti facendoti rispar- 
miare anche oltre il 20' rispetto ai normali prezzi di mercato. 

Ma anche sulle altre numerose proposte, dai libri alle periferiche 
agli accessori, potrai realizzare risparmi dal 20% al 35%. Ciò é pos- 
sibile poiché APCO importa, o acquista, direttamente dai produttori 
in adeguati quantitativi tutti i prodotti che ti offre, senza intermedia- 
ri e senza spese di distribuzione. 

IL MASSIMO PROFITTO CON IL MINIMO IMPEGNO 

Ordinerai quello che vorrai per trarre il massimo profitto dalle pro- 
poste APCO L’unico tuo minimo impegno sarà di ordinare anche so- 
lo altre tre cartucce, o cassette, nel primo anno di adesione all ARCO, 

a prezzi sempre esclusivi, e basta! 

X 

ceti 


MODULO Df ADESIONE E DI RISPARMIO 


GARANZIA 

1) Qualità I vidàOgiOcN proposti sono scelti dal CcnKtato del! ARCO Uà i 
miglior* titoli pubblicati in Europa e n^gii USA Ove presentassero di'eEh 
di Fabbricazione saranno sostituiti immediatamente. Anche gli altri prodot- 
ti offerti, tutti selezionati ssimi. saranno assistiti da opportune garanzia 

2l II software piu pneetigtoso a prezzi esclueivl L APCO proporrà video 
giochi e Utilities deJFe più prestigiose software- house spesso in antepri- 
ma. | prozìi riservali egli assodali saranno di almeno II 2G\- inferiori ai 
normali prezzi di mercato. 

3) Minimo impegno L associalo avra soltanto l'impegno di ordinare alma- 
np tre cartucce, C cassette, di videogiochi durante il primo anno di ade- 
sione scegliendole tra quelle pubblicate sull'Apeo News 

4) APCO si nserva dr accettare la presente domanda di adesione. 


Spedire il presente modulo, o una fotocopia, in busta chiusa 

a: ARCO a.r.l. - Casella Postale 239 - 10015 IVREA (TO) 


Sii desidero aderire all' APCO per assicurarmi tutti ì suoi 
vantaggi esclusivi e ricevere due cartridges Commodore tra 
quelle che qui indico in ordine di preferenza. 


Pagherò soltanto al ricevimento delia merce l'importo com- 
plessivo, IVA inclusa, di Lire 29.500 (oltre a Lire 3,750 per 
contributo spese imballo e spedizione) 


Nome 


Via . 


CAP 

Città 

data 

firma 

(firma dei genitori in caso il richiedente abbia meno pi ì 8 anni; 



Commodore 6 



Oth ello 


100 RF!M ******** *********** ****** 

HE REM ** 0 T H E L L O ** 

100 REM ** PER COMMODORE 64 ** 

130 REM ** ** 

140 REM ** <C> 3 1 OVftNN i BELUJ ' ** 

150 REM t* TEL . 0362^233533 + * 

160 REM ************************* 

170 POKE33280 ,0 f F0KE33ES 1 ,6 S PR INT"k " 

130 F0RK»54272TQ54236 IPOKEK ,0 : NEXT 
1.00 PR IMT" J" ! FON E 54 2 96, 15 ! POK E 54273 ,243 
200 PCKE5427S , 17*.DIMft*( 32 ) ,B*C 32 > 

210 PRINT" RBCDEFGH “ 

220 PRINT* ( — ( — i — i — i — i — i — i — 1“ 

£30 FQRK = 1T08 

240 PRINTK" 1 I I 1 i I I 1 I “K 

250 PRINT" ì — 1 — I — f — i — I — i — 1 — I * 1 NEXT 

2S0 PRINT"a ' — 1 — 1 — ' — 1 — ' — J — 1 — *" 

270 PRINT" ABCDCFGH * 

230 4* = "9" ! FCRK. = 1 T02 1 ìfc*=*t=i* + "H" ’■ NEXT 
290 ft I t * ■” 

3O0 PR INTANI ! INPUT "NOME PRIMO G IOGA TORE " ! G 1* 

310 PR INTRIDI 5 INPUT "NOME SECONDO G IDEATORE “ i GES 
320 0=35 : B*3£ s W= 1324+42 i 0=54273 • D=37 
320 PÙKEUI + B0*4 +8,81! POKEW «•80 *4+ 10,87 
340 POKEW+80*5*8 ,87 : FDKEW+80*5 + 10,31 
350 FORK = 1 TOSO 

3C0 IFO'S 1THEN0=37 «DI =S 1 SGOTO3E0 
370 IFD=S7THEND=8 1 ! D 1 = 37 
333 PRINTA*,* 

300 PRINT" 

400 PR INTRISA 
4 10 PRINT" 

420 PRlNTn*J "PEDI Nft*lK; i INPUT* DOVE" IDI* 

43B 0=0 

440 IFLENK01*>< >2THEN420 

456 X*=LEFT*< DI*, 1 > ! V*-R I6HT*( Cl*, 1 > 

4S0 IFX*> “H*ORX*< “R “ THEf 14 20 
470 !FY*.' “3“0RY*< “ 1 “THEM420 

480 y=flSC< X*) -G4 
493 Y»\‘ALtY*: 


In una scacchiera 8x8 compaiono 
quattro pedine disposte ad X. Di que- 
ste, due {bianche) appartengono ai 
primo giocatore, e le altre due al se- 
condo» fi giocatore «bianco» gioca 
per primo indicando le coordinate 
della casella che intende occupare. 
Tale indicazione va fatta con la lette- 
ra ed il numero. Esempio: E3, F4 
eccetera. Il programma possiede un 
controllo per verificare se la casella 
indicata non è già occupata come pu- 
re se vengono fornite le coordinate di 
caselle inesistenti o non occupabili* 
Un breve segnate sonoro comunica la 
«cattura» delle caselle avversarie. 
Alla fine, il programma calcola 11 nu- 
mero di pedine possedute da ciascun 
giocatore ed emette il verdetto. 


’ J REM 33 =PnZ 1 
r : REM 35 SPriZ I 
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ECHfìfC 


<533 

rrp| 

T- 13 

;rx 

t “■ n 

ÌWH 

530 

I r v 




IFY 

560 

IFY 


t r v 

i r 

i 1 

530 

i r y 

333 

T F>- 


■ ;TV 

ma 

T F V 

a run 



\~y 

E30 

1FX 

B50 

IFX 

660 

IFK 

£2SL 

- IFG 


W + SSfcY + ^ >36THEN42G 


= 3BTHEf 4Q-Q + 1 


=36THLNQ=G^ i 


"9G TMELNQ = Q + i 


"S6THENQ =Q + 1 


v= 1 TMENQ-G + 5 


)+8*(X-l)) =96THENQ= 

>+e:^< h + -sbthens = 

-36THENQ* 
? *£*( X + 1) ) k S6THENG = 


G+l 
Q4 1 
G + 1 
3 4 i 




J. Heilbarn, R. Taibott 
GUIDA AL COMMODORE 64 

pag 464 L. 36.000 
Finalmente un completo 
e documentato manuale per il 
Commodore 64, 

Vi si trovano descritte tutte 
le funzioni e i comandi 
del BASIC con particolare 
attenzione alla grafica, al colore 
e al suono. 

Alcuni importanti capitoli sono 
dedicati ai problemi 
dell' interi accia mento, 

Una scelta d obbligo per chi 
vuole ottenere il meglio 
dal proprio computer 

H. Peckbam 

IL BASIC PRATICO PER IL 
COMMODORE 64 

pag. 320 Inverno '84 
Herbert Peckbam è uno dei 
maggiori divulgatori del BASIC 
e della programmazione. 

Questo titolo, dedicato al 
Commodore 64, costituisce un 
corso completo utilizzabile sia 
come materiale didattico 
collettivo che per 
l'autoapprendi mento. 


R. Jetfnes. G. Fisher, B Sawyer 
DIVERTIRSI GIOCANDO CON 
IL COMMODORE 64 

pag 216 L 22.000 
Una raccolta di 35 programmi 
che impiegano tutte le migliori 
caratteristiche del 
Commodore 64, in particolare 
il colore, la grafica e il suono. 

H libro suscita interesse non 
solo per i giochi in esso 
contenuti ma anche per la 
quantità di “trucchi' di 
programmazione che si possono 
imparare utilizzando i listati. 


K. Skier 

L' ASSEMBLER PER IL VIC 20 
E IL COMMODORE 64 

pag. 420 Inverno '84 
Numerosissimi sono gli utenti 
VIC 20 e Commodore 64 che, 
pur conoscendo 
approfonditamente il BASIC, 
hanno ancora difficoltà ad 
orientarsi col linguaggio 
macchina Questo libro, partendo 
da concetti molto elementari, 
si articola attraverso numerosi 
esempi pratici fino a una 
completa comprensione 
deir Assembler. 


La MoGraw-HUl pubblica in tutto il mondo 
■decine di titoli dedicati ai calcolatori 
della Commodore. 

Ei chiedete il catalogo dei libri in lingua 
italiana e il McGraw-Hill Computer Cataloga©. 


distribuzione in libreria: 

Messaggerie Libri S.p.A. 

Via Giulio Cercano, 32 
20141 Milano 


McGraw-Hill Baok Co. GmbH K L 

Lademannbogen 136 C"i* 

0 2000 Hamburg 63 I" Il ìli 

Repubblica Federale Tedesca m M I 




630 F'QK EU +30 *Y+£ *X , D 
S9C IFX> lftl'*JY>lTHf:?«QSUB730 
7G0 !FX<PFNGir? ITHENGGSUESS0 
■7JS3 IFX;8 T M£MGO3U0 1253 

^20 *fx> i thè k inastisi ise sgosub 1073 

733 JPXf 30N0Y< eTHEWOSUB144 0 

740 IPX > lf!t40Y< STHENGCSUB 1 340 

753 JFY> 1 THENGO3UBS30 

7F0 !FX= l PNDY= 1 THENG0SU3 1070 

773 NEXT 

733 GOTO I54Q 

733 3=0 

330 G=G+ 1 

T 10 IFPECKC W+80*< Y-G > +£+( X-G ) > =DTHENGOTO850 
8£0 IFPEEK< 14+80 *( Y-G >+2*< X-G) ) =36THENB36 
830 I FPEEK.t LJ+30*f Y-G )+£*< X-G) ) =0 1 THEN30G 
340 G0T039C 
850 IFG-1THEN830 

8 PO FOF J = 1 TOG - 1 :POKE14+30*t Y-J )■»£*< X - J ) ,D 
370 POKEO ,D : FGRT = 1 TO50 = NEXTT J POKEO ,0 
880 NEXT 
830 G=0 
300 G=G+1 

910 IFPEEKC 14+80 Ft Y-3) + £*X ) =DTHENGOTC950 
323 IFPEEK( 1 J+8S + C Y-G ) + £*X ) =96THEHRETURN 
330 IFPEEKC 14+80 X< Y-G ) +2 *X ) =0 1 THEN900 
34P RETURN 

350 TFG* 1THENRETURN 

OSO F0RJ = 1TGG-1 5 POKEW+30 *< Y- J ) +2*X ,0 : POKEO ,D 
970 FORT = 1 T05G : NEXTT: POKEO ,0 ! NEXT: RETURN 
980 G = 0 
390 0*G + 1 

1000 I FFEEK< U! + E8*< Y-G) +£+< X+G) > =DTHENGOTO 1040 
1010 1FPEEK ( k>+8G*\ Y-G ) +2 *\ X+G > ) =36THEN1070 
!0c 6 IFPFEK* U+80*< Y-G) +2 *< X + G 5 ) =D 1 THEN330 
1030 GOTO 1070 
1040 IFG= 1 THEN 1 078 

105O FGR J = 1 TOG - 1 : P’GKEl4+30 *( Y-J ) *£¥i X+J > ,0 
1060 POKEO ,0! FORT* 1TQ50S NEXTT : F CKEQ ,0 • NEXT 
1370 0=0 
J 030 6=0=1 

1890 1FPEEK< UI+S0K v-Q ) +£*X ) =DTHENGGTO 1 130 
1 100 IFPEEK'! 14+80 *C Y + G > +2#X ) “96THENRETURN 
1118 JFFEEK: U + 80 *< Y+G > + 2 * X ) =□ 1 THEN 1080 
f 123 RETURN 
1 J30 I+*G= 1 THEMRETURN 

140 FOF 7 = 1 TCG-1 !POKEUJ + 80*C Y + J ) +2*X , 0 i POKEO ,D 
1 150 FORT = 1TO50: NEXTT! POKEO, 0 : NEXT: RETURN 
! 1 60 G = 0 
1 1~0 G = G+ 1 

1 ISO 1FPEEK< W+©0*Y + £#< X-G) ) =PTHENGGTO1280 
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130 IFPEEKC L4+3G + Y + £ +C X-G ) ) “3GTHENRE TURN 
£00 I F P E E KX UH-G0*Y+£#< X -G > >=□ 1THEM1 170 
£10 RETURN 
£20 I F G = 1 THENRE TU R N 

£30 FOR-J" ITOGLI !P0KEUH30*Y+£*C X~J > r DsPùKEQ,0 
£40 FORT = 1 TO50 s NEXTT i PGKEQ ,0 i NEXT 3 RETURN 
£50 G”B 
£E0 G=G+1 

1£70 1FPEEK< Wi-30*V^2*< X*G > > =DTHENGQTO 1 3 10 
£83 IFPEEKX UH 30 + X+G> > =S6THENRETURN 

IFPEEKC tJ + GSJ *Y + S*< X ^G> ) =D 1 THE Ni £60 
1300 RETURN 
13 3 3 IFG = 1THEMRETURN 

*320 POR J - 1T06- 1 1FOKEUI+80*Y+£M X+J ) : PGKEG r O 

1330 FORT = 1 TO50 * NEXTT ! POKEO , 0 s NEXT s RETURN 
1340 G*G 
1350 G-G41 

1360 1FPEEKC UH 30 *< Y+G )+£*■; X -G ? > =GTHENGOTO 1 400 
1370 IFFEEKX UH30*< Y + G ) +£*< X-G ) > '96THENRETURN 
1330 IFFEEK< UHS0*< Y*G ) X'G 2 } *0 1THEN1350 
1330 RETURN 
1460 IFG- 1THENRETURN 

; 4 10 POR J - \ TQG - 1 s FOKEH + 80 *< Y+J > +£*{ X- J ) ,D 
1 1£0 POKEQ„D : FORT- 1TQ5G1 NEXTT: POKEO,0 : NEXT 
1430 RETURN 
1440 G-0 
14S0 G=G+1 

1460 IFPEEK< 14+30 *< Y+3? + E*t X *G!> > "D THENGOTG 1 500 
1470 IFFEEKY UH SO*-' Y+G ) + E*C X+G > ? ’BBTHENRE TURM 
I486 IFPEEKt UM30 + C Y ’G) +2*« X + S> ) =0 1 THEN14S0 
1430 RETURN 
I SOO I FG - 1 THEFRETURN 

1510 FOR J * 1 T06’ 1 :POKEW + S0*< Y + J ? +£*( X+J > ,D 
1520 POKEO rD- FORT *=■ lTOSGi NEXTT SPORE G ,0 : NEXT 
1530 RETURN 

1540 F3RX= 1 TOG ! FORY= 1 TOS 
1550 IFPEEKX W+30*Y+£*X>=3 1 THENF 1 =F 1 + 1 
1 58 G 3FPEEKC W+30*Y+£*X > =37THENF£*F£ + 1 
1570 NEXTY,X 


1580 
1530 
16O0 
1G1P 
IGEO 
1 E30 
1640 
1650 
I960 
1670 


PRINT*aBTOTALE s wm * 

PR 1 NTG 1. * 11 = “FI 1 * PUNT I ffiti " 

PRINTGE*' 1 = M F2". PUNTI HM" 

IFF 1=F£THENPR1 NT *rf»RREGGlOB= AVETE M F 1 "FEZ Z 1 GOTO 164© 
IFF 1 >F£THENPR JNT tt 0Hfì V 1 NTG * . . . . "Gl* ^GOTO 1640 
IFF KFETHEMPR 1NT"»A VINTO. .... 4, G£*i GOTO 154© 

FORK= 1 TOEO00 ■ NEXT 

INPUT-SSaaANCORfì® MA$i IFLEFT*< fi*, I ? = “S "THENRUN 

PR l NT st J, BP 1 ,40 . . . - 00000 11 l END 

BFM- TIT 1 I I M 1 I I t l M 11 I 1 i 11 I I MI 11 1 I NI l U l li 


REFDY. 
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Quickshot II 

Nuova joystick per Atari, Commodore Spectrum 
a sole L. 28.000, IVAe spesedi spedizionecomprese! 





k 


La nuova versione del diffusissimo joystick Quickshot. 
Nuovo disegno ultra-ergonomico e pulsante selettore 
di fuoco continuo Si collega ad Atari. Commodore e, 
tramite apposita interfaccia, allo Spectrum. 

Ad un prezzo eccezionale e soprattutto, a casa vostra 

entro tre settimane' 

Solo un ordine per cliente. 

L'offerta scade il 30/6/84. 

In più Gratis il catalogo Settime & H.: 

software, periferiche, Interfacce e accessori 

per Commodore, NewBram, Sinclair e 

TI 99/4A, 

Ritaglia e spedisci subito il tagliando 
con il tuo nome e indirizzo più L. 28 000 
(assegno circolare o vaglia postale) a: 

Soft ime & H. - via Caglierò, 17- 201 25 Milano 




Serviti un tris d’assi! 

Jumpin Jpch + Grìdtrap + Triad per il tuo CBM64 
a sole L. 54.000, IVA e spese di spedizione comprese' 






Grafica in tre dimensrom 1 L’ardua Impresa della rana Jack 
che deve raggiungere casa prima dei calar del sole. 
Buon divertimento 1 


Cosa succede al signor LW ,J Chiuso in una stanza 
deve disinnescare le bombe a tempo, tra mille pericoli, 
Aiutalo, ma fai in frettai 


Battaglia spaziale senza esclusione di colpi 
Contro la Triade basteranno il tuo coraggio 
e il tuo raggio laser? 


J 


k 


Solo un ordine per cliente. 

L 1 offerta scade il 30/6/04. 

In piu Gratis ni catalogo JàHIih* & h.,: software, 
periferiche, interfacce e accessori per Commodore, 
NewBroin, Sinclair e TI 99/4A. 

Ritaglia e spedisci subito il tagliando 
con il tuo nome e indirizzo piu L 54 000 
(assegno circolare o vaglia postale) a 
Settime Jl H- - Via Caglierò, 17 - 20125 Milano. 


L’UFFICIO 2000 


COMMODORE SHOP di MILANO 

dal ns. LIBRO BLU per il f K 64 ricava e propone i seguenti collaudati programmi 


BEST SELLERS - GESTIONE 

CONTABILITÀ clienti -fornitori ■ conto corrente (gestione generale multiuso) 

CONTABILITÀ IVA SEMPLIFICATA gestione completa con stampa allegati e registri IVA 

GESTIONE NEGOZI carico e scacco mag. - emissione scontrino o Fattura -Gestione cassa 

MAGAZZIN0 1 500 a 5000 ART. carico - scarico ■ listini - situazione a valore c.m.p. 

MAGAZZINO E FATTURAZIONE AGGANCIATI emissione e gestione Fatture 

aggiornamento magazzeno e gestione chentt 


L. 180.000 
L 320,000 
L 200,000 
L 220.000 
L 110 000 


OFFICE AUTOMATICA 

Gestióne archivi 
Word processor (vari Tipi) 
Data Base (vari Tipi) 

Easy Cale - Cale Result 
Magic desk e altri ancora 


TECNICO SCIENTIFICI 

Ing. civile 
Computi metrici 
Legge 373 
Stat 64 

Analisi matematica 


UTILITY 

Tutti i programmi 
esisterà 

DIDATTICA 

Apprendimento della lin- 
gua italiana per scuola 
elementare 


PARTICOLARI 

Biblioteca - Media 
Anagrafiche - Condomini 
Professionisti - Officine 
Pubblicità, Vetrine e radio 
private e altri ancora 


If vs, 64 o sistema 64 vi è insufficiente? CONTATTATECI 

Possiamo aiutarvi a risolvere il problema ampiandolo, permutandolo (con sistemi Commodore maggiori o 
con IBM compatibili) o comprandolo. 

L UFFICIO 2000 - Via Ripamonti 213 - Milano - Tel 5696570/ 5696573 - Aperto anche di Sabato 

VENDITA - ASSISTENZA TECNICA - ACCESSORI 


I 
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Commodore 64 


Easycalc 

Uno spreadsheet per il 64 


■S miramente avrete sentito parlare 
di programmi, come U Visitale che 
trasformano iJ computer iti una tele- 
camera che può spaziare su un gran- 
de foglio elettronico su cui si può scri- 
vere di tutto: parole, dati o formule, 
Quest ukime possono legare i vari 
elementi tra di loro, in modo che, 
cambiando U valore di uno di essi 
vengono ricalcolati tutti gli elementi 
legati ad esso, tramite una formula. 
Altrettanto sicuramente ne avrete 
desiderato uno, ma vuoi per il costo 
elevato, vuoi per l’uso puramente 
saltuario che ne avreste fatto, avete 
sempre rimandato l'acquisto. 

Se rientrate nelle categorie sopra 
indicate, questo programma fa per 
voi* Easycalc trasforma il vostro 64 
ìia un tabellone elettronico di 26 x 54 
caselle, nelle quali potete scrivere 
qualunque cosa: nomi, numeri, fino 
ad un massimo di otto caratteri per 
casella. 

Ovviamente si possono legare più 
caselle con delle formule che possono 
venir ricalcolate in qualunque mo- 
mento semplicemente premendo un 
tasto* 

V ediamo ora dì spiegare più detta- 
gl latamente come si usa il program- 
ma* Digitato il tutto fatene immedia- 
tamente una copia su supporto ma- 
gnetico (se avete sbagliato una poke 
può darsi che 11 tutto si inchiodi) e 
date il RUN. Lo schermo diventa iut- 
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to blue e compare una piccola parte 
della matrice che avete a disposizio- 
ne. In alto a sinistra compaiono le 
coordinate delie caselle, per l’esat- 
tezza le lettere dalla À alla D ed i 
numeri da I a 18. Appare pure un 
cursore, giallo come le coordinate, 
che occupa un’intero casella, cioè 8 
caratteri* ti cursore può essere mos- 
so, tramite i soliti tasti dì controllo. 
Se si oltrepassano i limiti di pagina 
(in questo caso a destra e in basso), lo 
schermo passerà a mostrarvi le suc- 
cessive caselle che avete a disposizio- 
ne fino a quando giungete alla massi- 
ma x permessa (la lettera z) e alla 
massima y permessa (Il numero 54). 

p’ 

V_^ è anche un modo più rapido di 
muoversi per schermate successive* 
Lo si ottiene utilizzando i tasti di fun- 
zione FI, F3, F5 t F7 che muovono 
rispettivamente lo schermo SU, 
GIÙ’, SINISTRA, DESTRA* 

V ediamo ora con un esempio come 
si inseriscono ì dati* 

Tornate al primo quadro (quello de- 
limitato dalle lettere A..D e i numeri 
I..18) e mettetevi col cursore nella 
casella di coordinate ÀI, cioè la pri- 
ma in alto a sinistra* Fremete ora il 
tasto V e vedrete che nella parte infe- 
riore dello schermo comparirà la 
scritta V ALLE e sotto di essa un pun- 
to interrogativo* 

A questo punto potremo scrivere 
otto caratteri qualunque, un nome o 


un numero e, dato il RETURN, que- 
sti compariranno al di sotto del cur- 
sore* A titolo di esempio digitiamo 
ARTICOLI, seguito dal solito 
RETURN. 

rovi amo ora a creare una tabella 
nel seguente modo: scendiamo due 
volte col cursore in modo da portarci 
nella casella A3 e digitiamo, dopo 
aver premuto il tasto V, ART t (R), 
tenendo presente che qui (R) sta per 
RETURN; scendiamo col cursore in 
A4, premiamo V, ART 2 (R) e cosi 
via fino ad ART 4 che si trova nella 
casella Ah* A questo punto scendia- 
mo ancora premiamo V e inseriamo 
una fila di otto *-■> (è il tasto -) come 
elemento separatore* Copiamo ora la 
stessa fila di nomi nelle caselle B7 e 
C7. Per fare ciò basta spostarsi nella 
casella desiderata e premere V subito 
Seguito da RETURN* 

Poniamoci ora in RI col cursore, 
digitiamo V e GENNAIO (R)* Alla 
stessa maniera in CI scriviamo FEB- 
BRAIO* Scendiamo ora in A8 per 
scrivere TOTALE. 

A questo punto dobbiamo definire 
i prezzi per ogni articolo. Partendo 
dalla casella B3 inseriamo il prezzo 
deir ARTI in GENNAIO, poi scen- 
diamo e facciamo lo stesso per gli 
altri tre articoli. Supponiamo che i 
prezzi siano nell’ordine: 57500, 
1350, 1250000, 17300. 

À questo punto vogliamo che nella 
casella R8 compaia il totale del costo 



di tutti gli artfcótL Digitiamo F c In 
basso comparirà la scritta FORMU- 
LA. Digitiamo: B8 = 

B3+B4+B5+B5+B* (R). Lo scher- 
mo si spegnerà per qualche secondo e 
poi ricomparirà tutto» compreso il 
risultato. 

Se et poniamo ora col cursore sulla 
casella risultato, premendo S verri 
visualizzala la formula. Se ora voles- 
simo cancellar taf non fatelo però) ba- 
sterebbe premere il tasto E. 

Se cambiamo il costo di un articolo 
e vogliamo che il risultato sia aggior- 
nato, basterà premere il tasto C. So- 
lito spegnimento dello schermo e ri- 
comparsa dello stesso dopo aver ri- 
calcolato tutte le formule precedente- 
mente immesse. 

I comandi sono tutti qua. Occorre 
solo ricordare alcune piccole partico- 
larità e restrizioni , Le formule non 
possono essere troppo lunghe. Già 
sommando cinque elementi il compu- 


ter risponde con un FORMULA 
TOO COMPLEX e la for- 
mula non viene accettata. In questo 
caso occorrerà definire delle caselle, 
magari in ulta parte di matrice non 
visibile, che contengano dei risultati 
intermedi. 

G li operatori accettati sono quelli 
fondamentali (+, *, *, /), l'elevamen- 
to a potenza e inoltre: EXP» LOG, 
SQR, TAN, SIN, COS, ABS, ÀTN, 
SGN. 

Se sbagliate a scrivere qualche for- 
mula il programma potrebbe anche 
fermarsi. In questo caso per ripartire 
digitare GOTO 270 (R)ed il tasto Fi- 
li programma non si ferma invece 
in caso di divisione per zero e simila- 
ri. Inoltre, Easycaì non comprende le 
roiiti nes per salvare tutto ciò che è 
contenuto nella matrice, ma sono 
previste due linee, alta 571) e 590 per 
un eventuale salto alle muti nes: ba- 
sta togliere i REM. Comunque vi 


sconsìglio di scrivere queste muti nes 
per le cassette poiché sarebbe richie- 
sto troppo tempo per salvare il tutto. 
Se ci provate per il disco ricordate 
che bisogna salvare le matrici: F15, 
SS, MSf, e la variabile LA* 

A proposito, si possono inserire 
come massimo 50 formule, comprese 
quelle cancellale. 

Buon lavoro dunque. 

N.B. 

il funzionamento di questo pro- 
gramma si basa sulla tecnica de- 
scritta sui numero 8 dì Commodo- 
re Computer Club nell' articolo vii 
buffer della tastiera». 

Si noti inoltre che non è possibi- 
le usare funzioni di funzioni 
Esempio : B3 = 20G (SiN(J2)) è 
illegale; A5 — LOG (6) + SIN 
(A3) è invece possibile. 

Andrea & Alberto Boriani 


100 REM ******** ** t *** ***** ************ 


1 10 REM * COMMODORE £ =5 * 
1£0 REM * EASfCALC \C> * 
130 REM * * 
133 REM # BY * 

t 

!5£ REM * * 
18® REM * fi NOREA & ALBERTO * 
170 REM * * 
180 REM * BORIAMI * 
130 REM * * 
H00 REM * VIA ACACIE 3 CUSANO MI LANINO* 

E 13 REM * * 


£50 

830 

540 

asa 

£70 

280 


REM * #** ***** * * v ************** *** * * 

Din 26 J w4 ) s >; = 1 Y= 1 ; p=0 5 POKE53230 ,6 s PQKE53E8 1/6 

D I MSSC 50 > , 50 > s LftST = 1 


t;v^= " 


K2t= 



8OSUB310 


CC3UE 4 1 C 


"ìREM 33 3FC 
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230 GO T 3?IC 

300 PPM **** SUBROUTINE STAFFA **** 

3J0 RR ■ TftB^ 12>? ”*** EASYCALC * **3“ s RR INT3PCC 3 > ; 

320 POR 1=1 T03 

330 °R I MTS“C( 4>JCHR$-; I +S4 +L 1 > 3PCC 4 ) ; 

340 NEf-'Ti PR INTSPCC 4 J ; CHR*C 1+64 +L1)* PR INT 
350 PR INT "ET ; 

300 FORI =17018 

2^0 PRINT**H“ f I +L2; U H" : SFC< 3-LENC STR*( I+L2> > )f "| * 

330 PRINT? 

330 NEXT 
400 RETURN 

410 REM ******* CURSOR ****** 

420 S$=F=FC X+L ! , Y + L21 : PR INT"H" 

430 c*=" " 

4 43 POR I *LENC 34?) * 1T03IC*=C*+ " " : NEXT 

4*50 C*=LEFT*< S*+C*,8> 

463 “OR I«1 TO YsPRINTiNEXTI SPRINT 
4 70 PR INT TfìEt 3*( X- i >+4>; 

430 IF P’ITHEN PR INTC$; 

4S0 IF P =0THEN PR INT"*!” 1 C*S “B"; 

500 RETURN 

513 REM ***** INPUT COMANDI ***** 

323 PRINT"B"7 
330 PRmTKZ»? 

340 6*1 

550 GO3UB1660 

560 GET A$; IF A$ = “ "THEN360 
570 REM I Pfl*= " L " THEN2000 s REM LQAO 
380 REM IFA*= "WTHEN6OSUB30O0 s REM SAVE 
530 .tFfi*» *S ‘ THENGOSUB 1 300 : REM SHOW F. 

608 I FA*» - THEN730 i REM CURSOR UP 
613 IFAS= " 3 " TH2N770 ! REM CURSOR DOWN 
020 lFft*=“U H THEN3 10 1REM CURSOR LEFT 
630 IRA*® "|J" THENS50 * REM CURSOR RI6HT 
640 I FA*» "S"THENSB0 s REM SCREEN UP 
S50 IFAS= "«"THEN320SREM SCREEN DOWN 
660 IFA*= "IÌ"THEN950:REM SCREEN LEFT 
670 IFAS = “irTHENS80iREM SCREEN RIGHT 
630 IFA#= "V^THENIOIO! REM INST. VALUE 
£30 IFA*= , “”THEM1033 sREM INST, FORMULA 
700 IFA*=*C "THEN1410 :REM CALCOLA 
FIO 1 FA*» "E “THEN17 1 0 : REM ERASE FORMULA 
720 GOTC530 

730 REM **** CURSOR UP **** 

740 R= 1 ; GOSU64 18 

750 Y=Y-1 ip=0! IFY< ITHENS20 

760 6OSUB4I0IGOTC510 

770 REM ***** CURSOR DOWN ***** 

730 P= 1 JQCSUB4ÌB 

790 Y=Y* 1 iP=0: IFY> 1 3 THE N3 03 

* a 
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ET? GOSUB410S0OTG510 

913 REM **»* CURSCR LEFT **** 

SE0 P= 1 :G0SUB-1 13 

930 X=X-lsp-e: IPX< ITHEN350 

SIC G0SUB4 13 : GOTO" 10 

S53 REM ***** CUR30R R1GHT ***** 

863 P = 1 * G0SUB4 10 

S70 y=Xt 1 !p=p : IFXÌ4THEN980 

880 GOSUE4 10 S6OTO310 

390 REM ***** 8CREEN UP ****** 

303 L£“L £+9 '• IFL£>3£THENL2=L£*3 

9 ;C QO5LÌB310S Y= 1C : GOSUE 1330 i GQSUB4 10 : G07TJ5 10 
9£0 REM ***** SCREEN DOWN ***** 

930 L£*L£-9HrLa<0THEri.2 = L£+9 

3 *0 G0SUB3 ) 0 Y- 1 s : GGSUE ISSO 1 G03UB4 1 0 ; G0T05 1 0 
350 REM ****** SCREEN LEFT ***** 

9G3 H=E 1 -2! IFLK GTHENL 1 -=L l +E 

370 30SUB31C:X= 1 :GC5UB1330! 5GSUB4 10! G0T051S 
33E REM ***** SCREEN RI3HT *!*** 

337 L 1 --L ! *£ 5 IFL 1 >££THEHL 1 =Ll-£ 

130S GG3UB3;e:X = 4 i GOSUB 1 330 ! GGSUB4 10tGOTO510 
1013 REM **** INSERT V0LUE **** 

1C'£0 PF IMTK2*; “VflLUE “ ! REM 15 3FC 

1030 PR 1 NTKViJ "□* 

1040 INPUTB^srRlNT-G'IKV* 

I35S PRIHT u m " ! REM 30 3FC 

1CF0 Fi< X+L 1 ,Y+L£ >*LEFT*( ei,B) 

1073 SOSUB4 1 3 : GQTG5 1 0 

1080 REM **** INSERT FORMULA **** 

1330 FRI NTK Zi; “FGF. MULE 
1100 PRINTK.V*; 

11 1 0 I NFUTF* : PR I MT “ □“ > KVi 
11C0 3t( LflST ) =FT 
1130 G=l.ENCF*j 
1140 F=l 

: »S0 I F M I B i\ Fi -F ; 1 X "n “ORMIDiC F*,F, 1) > "Z " THEN1230 
;iE3 JÌ = MICT(FÌ,F + 1 , 1 ) 

1 170 IFJÌ>«"fl"flNDJ*< = “Z "THENF=F+4 
1130 Z$=MICiC Fi,F+£, 1 ) 

1 ISO IF2$>="G“ RNDZ i< ="9“ THEH1 770 

1£00 GÌ=MID$< FÌ,F + 1 , 1 ) + " > > ”+K,10$\ Fi,r +£,&) 

1210 F*=LEFTi-: FS,F“i > Fi( " *STR*< H3C< M1CÌ< Ff ,F , 1 ) ) - 64 ) + " ,"+G* 

1££0 F«F+3 

: £30 G = LEN< Fi) !F = F + 1 : IFF< G THE NI 150 
1£40 Fi-RIGHT*( F*,LEN(FS)~4) 

1 £50 FGRF» 1T0LEN\ Fi) 

1£63 IFM10Ì< Fi, F , 1 X > " = "THEN1 290 

1£^3 F*=LEFTi< Fi,F ) + "STRiC " +M1D*( FÌ,F+ 1 ,LENC F*> ) + " ) " 

1£30 FÌ=LEFTi<: FÌ,F-£ > +MID*< F$,F,LEN< F*>) 

1290 NEXT 

1300 IFLEFK F*) >7STHENE = 1 ! GOTO 5 10 
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13 1© MSC LAST>=F$ : LAST^LAST+1 
13E8 GOTO 141© 

1330 REM ***** AGGIORNA ***** 

134© FORVI =lTGl9iFDRKÌ =iT04 
1350 S*=*F*< HI *L1 ,Y1 *L£> 

1360 IF£*r=" jj THEN1400 
137© PRlNT"g“ 

1380 RORl=lTOYÌ ; PR I NT: NEKTt PR IUT 
1390 PR INTTABC 9*( X 1 - 1 > +4 > ; LEF T*< S3LS> 

1400 NEXTX1 tNEKTYI :RE"fURN 
1410 REM ***** CALCOLA ***** 

1480 F 0 R F = 1 TOL A3 T * 1 
1430 IF *W F >-" “THEN1560 

14 40 PRlNT'-iJfl* 

1450 PRINT' w a“ ;MO(F>J 

1460 MID^C M»C F>,5,£)> >0THENRR= 1 

1470 R 1 = 7BL\ MID^C M$< F > ,5 ,E> ) :R8"VBL< MID$< M$( F ) ,7*RR f E > > ì RR=0 :F*\ R 1 # R£ ) * n " 
1480 PQKES3 t - 1 3 

1430 PONESSE ,71 * P0KE633 , 1 1 1 ìP0KEE34^43 : PGKE635 ,53 J PQKE636 ,51 ! PQKE637 ,48 
1500 P0KE63S , 13 
1510 POKE 198 , 10 

15 P 0 FRfHT- rrrr ; iend 

1530 1 C F& R 1 „R2 > = * "THEN1570 

1540 TFMID« R1 7 R2),L1 ) = * - * THE NI 560 

1553 Ft< R I ) =R IGHT*< F$C R 1 ,R8> ,LENC FSC RI ,R2 ) >~1 > , 

1560 NEXTF 

1570 PP 1 NT "ET :G0SUB3 1 0 s GOSUB 1 330 i ©0SUB4 1© 

1580 GOTO510 

159© REM **** SHOW FORMULA *** + 

1600 FQRU= 170LBST- 1 

16 10 IFVAL< MID4K F^,5,8> )< STHEMZ = 1 

16E0 PR 1 NT * M iPRINT"CJ* J 

1B30 IFVALv MID*Y MSt W> ,5 ,2 > ) =X + L 1 ANDVAL{ MID*< W UH ,B-Z ,£/ =Y^L£THEN 1 780 
1640 H s 0 
1650 NEXT 

ISEO IFE* 1THENPRI NT w FORMULA TOO COMPLEX " : 3GTG 1 SSù 
1G70 IFG=0 THEN FRINT* 

1680 G “0 "* E=0 
1690 RETURN 

1700 REM **** EFB2E FORMULA **** 

1710 FORVI = 1 TOLAST - 1 

173© IFVALC MIO$< FS,5,£>>< 3THÉNZ ™ 1 

1730 I F VBLX MIO#-: MSF LI) ^,2) >=X+L 1 ANO VALC MID$< M*( U> ,8-1 ,g> > “ v '•■LE THE NI 750 
174© NEKTtGGTOS 1G 
l 753 HH =0 i S*K U > « * * 1 MSC W > = *' u 
17S0 GCTO510 

1776 GS^MID*< F$,F+1 ,2 > + “ > > " *MID*K F S,F i-3,G> ■ GOTO 18 1© 

1780 PRINTS^: W) :G*1 
1790 GOTO 1840 

READY „ 
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HOTUNE • UPDATE GARANZIA 

Tre nuove parole nel campo dell’Informatica. Esse rappresentano il 

- NUOVO SERVIZIO - 

che la Leoni Informatica, prima fra tutti offre ai suoi clienti. COMMODORE 64' 


HOTUNE 

UPDATE 

GARANZIA 


— linea telefonica dedicata alla risoluzione dei problemi dei clienti. 
Chiamando il numero telefonico riservato che troverete sulla cartolina 
garanzia acclusa ai programmi, riceverete tutte le informazioni che vi 
necessitano. 

— servizio di aggiornamento continuo dei programmi acquistati. Ogni modi- 
fica ai programmi realizzati dalla Leoni Informatica sarà fornita agli utenti 
degli stessi. 


— tutti i programmi Leoni Informatica sono coperti da garanzia a Vita contro 
guasti di origine. 


ALCUNI PROGRAMMI PER COMMODORE 64 


Cod. 

Descrizione 

Prezzo 

0152 

Gestione Studi Medici 

300,000 




0158 

Magazzino Dettaglio (2500 art.) 

380 000 




0159 

Magazzino Taglia e Colore 

380,000 

0047 

Gestione Anagrafiche 

120,000 

0160 

Belle e Fatture 

300.000 

0050/c 

Totocalcio Sviluppo Colonnare 

80,000 

0162/c 

Screen Grafi* 

150.000 

0051/C 

Gestione dei conti Casa 

100.000 

0163 

Copia Disco Singolo 

50 000 

00557 c 

impariamo il basic 

100.000 

0165/c 

Assembler Disassembler 

80.000 

0056/c 

Dichiarazione Iva 

60.000 

0169/C 

Magazzeno alfanumerico (1100 articoli) 

250.000 

0063/c 

Cento Programmi per il 64 

80.000 

0080 

Gestione Clubs Nautici 

250.000 

0064 

Compilatore Pet Speed 

80.000 

0081 

Gestione Officine 

400.000 

0065/c 

Fido Clienti 

100000 

0087 

Gestione Ristoranti 

400.000 

0066 

Conto Corrente 

150.000 

0131 

Gestione Hotel/ Pensioni 

400.000 

0067 

Gestione piano dei Conti 

1 50 000 

0132 

Gestione Parrucchieri 

400.000 

0066 

Gestione Appuntamenti 

150,000 

0133 

Gestione Gommisti 

400.000 

0071 

Gestione Ordini 

1 50000 

0170 

Gestione Tavola Calda 

400.000 

0066 

Gestione Librerie 

150 000 

0171 

Gestione Lavanderia 

400.000 

0090 

Mailing List 

150,000 

0155 

Gestione Condominio 

300.000 

0091 

Rubrìca Telefonica 

120.000 

0166/c 

Coiti pàctor 

50,000 

0094/C 

Gestione Scheda 4800 car. 

160,000 

0167/c 

Scompactor 

50000 

0096 

Gestione Scheda Agganciata al Mailing List 

250 000 

0168/c 

PET Emulator 

35.000 

0116 

Scadenziario Effetti 

200.000 

0306/c 

Charaoter editor 

40,000 

0120 

Contabilità Fatture iva /Imponibile 

200.000 

0309/c 

Bires imago 

40.000 

0121 

Contabilità Semplice 

400.000 

031 Q/e 

Hard copy 

40.000 

0136 

Legge 373 

150000 

0312 

Master 64 

225.000 

0143 

Magazzino Grossisti (2500 art) 

380.000 

0313/c 

Tool 64 

85.000 

0144 

Magazzino Fatturazione Agganciate 

400.000 

0314/c 

Stat 64 

65.000 

0140 

Gestione Ottici 

300000 

0157 

Caie Result Advanced 

350.000. 

0149 

Gestione Dentisti 

300.000 

0319 

Easy Script 

125 000 

0151 

Gestione Farmacie 

400 000 

0322/c 

Forili 64 

65.000 


I programmi Leoni sono disponibili presso tutti j punti vendita MÈLCHfONI ELETTRONICA 
Venata per corrispondenza anche deff’HARDWARE 



20147 MILANO - VIA DON RODRIGO, 8 - TEL 02/4437370 


ABRUZZO: « Praga System 

64100 Pescara - Tel. 085/ 
5088301-2165911 

BASILICATA - CALA- 
BRIA: • Sirangelo Compu- 
terà Via N. Parìsio, 25 Cosenza * 
Tel. 0984/75741 

CAMPANIA: * Computers 

Market Parco S Paolo Is. 9 Na- 
poli -Tel. 081/7672222 

EMILIA ROMAGNA - 
MARCHE: * Tempo Reale 

Via Centotrecenlo, 1/A Bologna 
Te! 051 ; 2 7080 1 « S.H.R Via 
Faentina, 175/A - Fornace Za- 
rattini (RA) - Tel. 0544/463200 

LIGURIA: * Siragusa Giu- 
seppe Via Milano, 85/A - Geno- 
va - Tel. 010/261655 

LOMBARDIA: • Eledra 

System Via F Ferruccio, 2 - Mi 
lano - Tel, 02/3492010 * Sirius 
Technology - Via Imperia, £3 - 
Milano Tel. 02/8467304 

LAZIO: • Kiber Italia Pie 

Asia, 21 - Roma Eur - Tel. 06, 
5916438 - 5929590 * Discorri 
Via della Pineta Sacchetti, 166 - 
Roma Tel. 06 6279132 • Atlas 
System Via G. Marconi, 17 - Vi- 
terbo - Tei, 0761/224688 

PIEMONTE: * Aba Elettro- 
nica Via Fossati, 5/C Torino ■ 
Tei. 01 1/332065 • Inter Rep Via 
Orbetelto. 98 - Torino Tel 011/ 
2165901 -2165011 

PUGLIA: . bla S r L.go de 
Gemmis, 46. B - BARI - Tel. 080; 
227675 * Magai!) per l'Ufficio - 

Via Manfredonia. Il Trav. - Fog- 
gia-Tei 0861/76111 

SARDEGNA: • S II. Via s 

Lucifero, 95 CAGLIARI - Tei. 
070/663746 

SICILIA: * Edilcomput Pro- 
getti Via La Farina, 141 Is. L 
Messina - Tel. 090 2928268 «E- 
leltronica Detta Via Messina, 
4 1 3/B Catania - Tel. 095/373946 
-370170 

TOSCANA: » tt Lab Via 

XXIV Maggio. 101 - Pisa - Tei 
050/501350 - «M.T.S. V.le Giu- 
doni. 93 Z Firenze - Tel, 055. 
410996 * E.V.M. Computer Via 
G, Marconi. 9/A Montevarchi 
(Ar) - Tel. 055 982513 

UMBRIA: « Studio System 

Via D Andreotto, 49 Perugia - 
Tel, 075/754964 - 753353 

VENETO - VENEZIA 
GIULIA: * Co, rei Italiana 

Via Mercatovecchio. 28 Udine ■ 
Tel 0432/291466 - 480857 - 
«Cash Via Noventa. 2 Vicenza - 
Tel. 0444,507155 


Commodore 64 


Archi \ o 
Disch i 

(seconda parte) 



$4 Campate rCtab 




830 GOSUB2450 SPRINT "STO LEGGENDO LA DIRECTORV ..." 

840 G0SUB450 s V=2 :GOSUB4 1 0 :DF*=S$ : V=89 : IFVF=6?THENV=227 
85S IFVF=1THENDF#=" 1" 

860 G0SUB428 i I FVFOS7THEH9 10 

87© H8=0 :FORZ=1T077 : IFCZ=*l>0R<2w51 >THENV=«4 :GOSUB420 

880 GOSUB430 ; I FZ039THENHB=NB+V 

89tì Y=4 :GO8UB420 sNEXTZ 

900 1 1 5 s GOSUE420 

910 NF=0:2*0 

920 GOSUB430 sFT=V 

930 Ff =€$■ : V=2 : GOSUB420 : V= 16 i GOSUB4 1 0 : V-9 : G0SUB42© 

943 OOSUB430 sS*s=S»+CHR*<V> :GOSUB430 : I FFT=0THEN 1 0.1 0 
950 IFNF=0THEN980 

960 FORX= 1 TONF : IFL£FT$ < S$ , 1 S> <MIO* < D*00,2,16> THEN990 
970 HEXTX 

980 XssNF+l : GOTO 1030 

9 90 FORY=NFTOXSTEP-1 sD* (Y+l aNEXTV 
1 000 0* < X > =F$ +S$+CHR$ < V > ; NF=NF+ 1 

1010 Z=Z+ 1 : Z=Z- C I NT < Z/8 > *8 > : I FZ70THENV-2 ; GGSUB420 
1020 XX=155 : IFVF=67THENXX=227 
1038 I FNFCXX THEN 1090 

1040 PR I NTHC* ; SPC < 6 > jRV*j "#** DISK BAM 13 INVRLIO ****’; 

RFt t 00SUB245S 

105O FRI NT SPRINT" QUESTO DISCO NON PUÒ’ ESSERE CRTFILOGRTO ! " 

SPRINT SPRINT SPRINT 

1060 PR I NT " PER FIRCERE VERIFICA IL DISCO" SPRINT 
1070 PRI NT "PRIMA DI CRTRLOGRRLO. " SPRINT 
1880 GOSUB2450 sGOSUB2410 : GOTO 1250 
1090 IFSS=6THEN920 
1100 CLOSE5 s GOSUB2450 

1110 PRI NT "METTI DISCO ARCHIVIO. NEL JORI VE 0*: FATTO?" 

1120 GOSUB2420 : IFC$0"S"THEN1 120 

1130 PRI NT "STO REGISTRANDO LA DIRECTORV ..." 

1140 I F NX=0T MENU 90 

1 150 FQRX=©T0NX-1 sC!f=LEFT*<X$CX> ,.2> i IFDI*<C*THEN1 130 
1160 IFDI*=C*THEN1210 
1176 NEX TX s GOTO 1 1 90 

1 1 80 FORV=NX- 1 TOXSTEP- 1 »X*<V+1> =XT <V> s NEX TV : GOTO 1 200 

1190 X=NX 

1200 NX=NX+1 

1210 X*<X>==DI$+DN*.-CX=1 

1220 GOSUB2330 SPRINTAI 5 ,"S"+St sOPEN5,8 J r5,S*+ , %SrW" «GOSUB460 
1230 PR 1 NT #5 , DF $}*',, '* ; NB ,s CR* ; sGOSUB4S0 

1240 IFNF>0THENFORX«=1 TONF s PRINT#5 r D* <X> jCR*; :GOSU8460 sNEXTX 
1 250 CL0SE5 s GOSUB2590 s GQTO600 

1 260 PR I NT " 30UTPUT D I RECTORV DEL D I SCO " : G0SUB2 1 78 s ON VGOTO490 , 1 260 
1270 0PEN3, 8,3,3$+" ,S,R“ SGOSUB460 s OOSUB2370 : 1 NPUT #5 , DF$ , NB :GOSUB460 
1280 PRINT#4," ";RV4?"DISK HAME : " RF$; " " :DN$ SPRINT #4 

129© PRI NT#4,SPC<4> ;RV$;" DISK IDs" ;RF$;" *’ jOI$;SPC<6> 

1300 PRINT#4,RV$; "DISK FORMAT : " ;RF$ ; " "DF$ :PRINT#4 
1310 PRIHT#4„RV*j "BLOCKS FREE s " ,-RF$ ; " " ; NE sPftl HT#4 
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COMPUTER 





à 




UESTO 



Qfnputftr - Anr 


maggio 


Digitare stanca 


Era Ibm, 
anno secondo 


Benchmark: 
Rainbow 100+ 
Digital Equipment 





1 320 
1 330 
134@ 
1 350 
1 360 
1 37 © 
1330 

I 330 
1 400 
1410 
1420 
1 430 
1440 
1450 
1460 
1470 
1480 
1480 
1500 
1 5 1 0 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 

1600 
1610 
1 t'l£l0 

1 630 
1 640 
1650 
1 660 

1670 
1680 
i &ì 


F'R IMT#4 _r Tt 


ti 


:PR I NT #4 


NF=0 5 IFSS:>0THEH1440 

GO8UB430 sFT=V sY=16 sG0SUB41 0 :GGSUB430 :2=V sGOSUB430 :GOSUB450 
PR I N T#4 , R I GHT 4 < " " +STR* < 2+ < 256* V 5 > , 4 > ; " " fS "j 

IFFT se 1 29THENPR I NT#4 , "SEQ " 

I FF Tss 1 30THENPR INT #4 , "PRO" ? 

IFFT= 1 31 THENPR1NT#4 ., "USR " ; 

IFFT = 13£THEHPR1NT#4 , ”REL " J 

PRINT #4 sGETC* : IFC*<>" "THENGOSUB2420 

I FC$= ” F " THEN 1450 

NF=NF+1 jIFSS=GTHEH1340 

F'R INT# 4 tPRINT#4,RV*l "#FILESs ” ;RF$.f '* " *NF 
I FPD=3THENGOSUB2450 sGGSUE‘24 1 0 
CLQSE4 SCL0SE5 : GOTO 1260 

F'R INTHCf ; "CANCELLARE DISCO DATI DI UN DISCO” 

GOSUB2 1 70 : ONVGGTQ 1 520 , 1 460 
FRI NT# 15., ,, S"+S$ 

CX=Q :FORX=0TONX- 1 s IFLEFT*<X* <X> ,2>=DI *THENCX= 1 

I FCXTHENX* < X> =X* < X + 1 5 

NEXTX : NX=NX- 1 s GOTO 1 460 

GOSUB2530 :GOTO490 

IFNX-0THENGOSUB2 1 S0 : GQT049G 

CL0SE4 s GQSUB2440 

- RITORNfi ALLE OPZIONI PRINCIPALI" 

- STAMPA MAPPA ID USATE " SPRINT 


PRINTSPC<5>; "0 
PRINTSPC<55 r " 1 


PRINTSPC<35 s *'2 - VELOCE LIST DELLE ID USATE” SPRINT 


LIST ID E NOMI” SPRINT 

LIST " ;RV$.s "MIN" ;RF$ ; " BLOCK S FREE 


1700 
1710 
1 720 


PR I HTSFC C 5 5 ,i “ 3 - 
PRINTSPC<3> j "4 - 
PER DISCO" SPRINT 

PRINTSPC<55;"5 - LIST " tRV*t "MAX" jRF* J " BLOCKS FREE PER DISCO ' 
GOSUB2450 s PR I NT " SCEGL I L ' OPZ I ONE DES I CERATA s ” ; 

G0SUB242© : 1 FC$= " 0"THEN490 

V=VAL<C*> : IFV<10RV>5THEH1 620 

PR INTCT : 0 H VOOTO 1 6 50 1 840 , 1 9 1 0 , £ 6 90 , 2 7 3© 

QPEN4 , 4 : OPEN6 ,4,6 
PRINT#4,SPG<15>;RV*j" MAPPA 
-USATE " :PRINT#4 
PR I NT #4 , ; 

FORX-48TO90 i IFX=5STHEHX=65 

PR IMT#4,, " ";CHR$<X>; : NEXTX sPR I NT #4 : 1 FDR$= " 1 " 

THENP R INT# 6 , CHR$ < 1 8 > 

I FDR*= *' 0 " THENF'R I NT#4 , CHR* ■C 8 > 

Z«=0 :FORX=48TQ90 : IFX=58THENX=65 
FRI NT #4 " 4 — I — ( — ! — I — I — ! — I — R— 1 — I — I — I — I — I — 1—4- 
i i l l r ~ ; 


D E L L E - I D 


[ I I I I I P 4- H 


PR I NT#4 , " 1 111 ) 4 " 

PR I N T#4 , C HR4 < X > ; 

FORY=43TO90 : IFV=5STHENV=G5 
PRINT#4,CHR4<221 > ; : IFZ=NXTHEH 1790 
Ct- =CHR* < X 5 +CHR4 < V > ; S$=LEFT *<X*<Z>,2> 
1780 IFS*=C^THENPRINT#4,CHR*< 1665 ; s2«2+l : 


1730 

1740 

1750 
1 760 
1770 


0130 


$8 - Computer Club 



à 




* 


COMPUTER 
UESTO 




$ 


f 

V 




TI 



i 


FLEXETTE 



Computer 

quando smanettare non basta 



J I I 1 — i." ■ 


183© PRIN1#4,"— 1 — 1 — -l — ' — t- j" s pRINT#6»CHR$<24) :GOTO1540 

1840 GOSUB2370 sPRINT#4,SPCC 7) ;RV4 " ID DEI DISCHI SI NORA USATE 



1948 I FC* = "F " THEN 1 540 

1958 NEXTX 

i960 I FFD=4THEM 1540 

1970 OOSUB2450 sCOSUB2410 s DOTO 1540 
1 980 I FNX=0THENGOSUB2 1 S0 : G0T0496 

1996 CL0SE4 sPRINTHC»; "PER TROVARE DOVE SI TROVA UH PROGRAMMA" : FRI! 
2080 FRIMT "OHI IL HOME DEL PROGRAMMA . ” ;CL#;CL$;CL$ ; : IMPUTF* : 

I FF$= " , " THÉN490 

£010 IFF4 : ="* , ‘THENPRIHT :PRINT"RI-" ; :GOTO2800 
2020 REMF4=F4 

2030 S*=F$ :GGSUB2340 :V=V :GOSUB2370 

2040 PRINT#4,RV4 jr" . . .NOME FILE.... ID ...NOME DISCO. ..." :PRINT#4 
2050 PRINT#4,S#SPRIHT#4 

2060 FOR2s=0TONX- 1 lDI*=LEFT#<X$<Z? ,2> iDN*»MIO$<X*KZ> ,3> 

2070 GOSUB2330:GP£N5,8,5,S4+" ,S,R" :GOSUB460 : INPUT#5, 

DF*,HB IGOSUB460 

2080 GOSUB453 : V= 1 6 s GGSU&4 1 0 s Vs3 ! GOSUB420 
2090 IFF$<LEFT$<S*,V>TMEN2140 

210O IFF*aLEFT*<S#,V>THENPRINT#4,S»;" "jDI*r" " ;DN$ 

2110 GETC4 i IFC*<>“ "THENGOSUB2420 
2 1 20 IFC^=’’F " THENCL0SE5 J GOTO 1 990 
2130 IFSS=0THEH£080 
2140 CL0SE5 sNEXT2 

2150 IFPD=3THENGOSUB2450 :GOSUB2410 

216© GOTO 1930 

2170 V=3;IFNX>0THEN2190 

21S0 PRINTHC*;RV*; "NO ENTRI ES" ; :V«1 :GOTO2310 

2190 PR I NT : PR I NT " DA I L'ID DEL DISCO . " ;CL$;CL#;CL4: : INPUTDI* 
220© DI$=LEFT4<DIf +" " ,2 J s IFOI *=” . "THEN2250 

2210 FORX-0TONX-1 : 1 FD I ♦OLEFT* < X$ CX > ,2>THENNEXTX :GOTO23O0 
2228 DN*»MID*<X*(X> ,3> ;DI*=LEFT4<X4<X> ,2> 

2230 GOSUB24S0 s IFCÌ="N"THENV=2 sRETURN 
2246 GOTO2330 

2250 PRINT SPRINT "DAI IL NOME DEL DISCO . " jCL* ;CL4 ;CL*.; : 1NPUTFS 

2266 I FF$- ” . " THENV= 1 : RETURN 
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2270 

2280 

2296 

2300 

2310 

2320 


-"”i ■™*ii 


0 



w- ■»> 




2370 

2380 

2390 

2480 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 


GGSUB2340 :FORX=0TONX-1 s IFY=0THEN2320 

I FF$ =M ID* <X*< X > , 3, V > TMEN2320 

NEXTX 

PRINT sFRINTRV* ; "NOM” ; :V=2 
FRI NT" CATALOGATO!" :GOSUB2450 SGGTO2410 
DN*=f1ID*CX*<X> ,3> sDI*=LEFT*CX*<X>,£:> IGOSUB2460 s IFC$*= 
"N"THEN2290 

S**‘’0 iDIR. "+DI* sRETURN 
F*=LEFT*<FS,16:> . 

IFR IGHT* < FT, 1 >= "#"THENY=LEN<F* >-l :F*sLEFTf '.F* , V > sRETURN 
Y=16 :F*=LEFT*<F*+ M " ,!£> sRETURN 

:REM 16 SPAZI SHIFTATI 

GOSUB2450 SPRINT "SU STAMPANTE?" ; s GQSUB2490 : QOSUB2450 
PP=3 s I FC$= " S " THENFD=4 
0PEN4,PD s IFPD«3THENPRINTHC*; 

RETURN 


F'RI NT "PREMI UN TASTO PER CONTINUARE" ' 

GETC* : r FC*= " " THE N2 420 
RETURN 

PRIHTHC*;SPC<9) ?RVt! " ARCHIVIO - DISCHI " 

FRI NT SPRINT" " .* RETURN 

FRINTHC*;RV$; "NOME DEL DISCO : " ;RF*; " " ;0N* : FRI NT 

FRI NT" ";RV*;" ID DEL DISCO : " ;RF* ; " " ;0I* :GOSUB2450 

PRINT "E' IL DISCO GIUSTO"; 

FRI NT" < S/N > ? 

GG5UB2420 s IFC*O"S ,, ANDC$O ,, N"THEN2500 


2310 PRINTC* sRETURN 

2520 I HPUT# 1 5 , EH , EM* , ET , ES : IFEN=0THENRETURN 
2530 PRINTHC$;RV*j" ERRORE SU DISCO" ;RF* ; " NHILE " ; 

2340 IFCXTHENPR INTESTO SCRIVENDO UNA NUOVA" 

2550 I FCX«*0THENPR I NT “ STO LEGGENDO" 

2560 PRINT SPRINT "DIRECTORY" SPRINT 
2570 PRINTENj£M*;ET,ES 

25S0 PRINT sFRlNTRV* ; "PROGRAMMA INTERROTTO ( " SGOTO2680 
2598 IFCXssBTHENRETURN 

2600 GOSUB2450 SPRINT "STO REGISTRANDO LA DIRECTORV F'RI HCI PALE' 7 FRI 
2610 IFNX=9THENPRINT#15, "SOsDISK DIR XREF" sRETURN 
2620 PRINT# 15, "S0s DIR XREF.TEMP" 

£62:0 0PEN5,8,5, “0 SDIR XREF , TEMP ,3 j W " sGOSUB2520 
2640 FORX=0TGNX-1 sPRINT#5,X*<X> JCRJF; :00SUB252©s NEXTX 
2650 CL0SE5 SPRINT# 15, "SO sDISK DIR XREF" 

2660 PRINT# 15, “R0 sDISK DIR XREF=0iDIR XREF. TEMP" :GOSUB2520 
2670 RETURN 

26S0 CL0SE4 sCLOSES :CL0SE13 sEND 

2690 PRINTHC*;" NUMERO MINIMO DI BLOCCHI LIBERI" 

2700 PRINT SPRINT "DA VISUALIZZARE 0" ;CL*;CL* jCL* ; : INPUTS* 

271B Y=VAL<S*> sIFS$O"0"ANDY=0THEN1540 
2720 VF=0 : GOTO2770 

2730 FRINTHC*;" NUMERO' MASSIMO DI BLOCCHI LIBERI" 

2740 PRINT SPRINT" DA VISUALIZZARE 99" ;CL*;CL*;CL*;CL»; s INPUT3* 
2750 Y= VAL <3*0 : IFV=0THEN1540 
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NOME DISCO. . . " 


2766 VF=1 

2770 Ó0SUB237B:PRIHT#4,RV$; "BLK LIBERI ID .. 

: PR I NT #4 

27S0 FORXssOTOMX-l sDI*=LEFT$<X*00 ,2> :ON*=MI D* *' X * >'• ., 3 -> 

2790 OPEN5.,3,5, ,, 0!DIR. "+DI *+" ,S ,R“ SG0SUB46© s INPUT#5,0F#,NE: : 

G0SUB46S sCLOSES 

2800 I F< VF=0 > FlND C N8<V > THEM2830 

2810 I F < VF= 1 >AND < NB> V > THEH2S30 „ „ 

2820 PRINT#4^RIGHT#C’" ,, +STR#<NB> ,7> ;SPC<5> ;DI* : ;CN* 

2330 OETC* : IFC*0 " "THENG0SUB2420 
2840 IFC*="F"THEH1540 
2350 NEX TX :G0T01 960 

READY . 


OjaSMarslBi sM GIOCHI BO 1933 


BKMHB 01 

82 




5 

21 

31 

2 

10 

8 

18 

1 

9 

14 

12 

13 

16 

17 

6 
2 

10 

7 

1 

1 

1 

1 1 

12 

9 

17 

41 

33 


100 CASELLE 

A - F - 

ANAGRAFE 

AP* ■ 

AP- 

RA 

iART ■ CRS* 

ARTICOLO A-F- 
B A S. SCROLL S26 
BREAKOUT 

car 

CORSIVO -Q 
CORSIVO 
QftAZV CRR A 
CRAZV CRR 
CROC I VERSA 
04 

ORTI CORSIVO 
DATI PAR- 
DAT 1 0 
DATI 1 

DBS* SCROLL 30720 
DISA33EMBLER 
EQ .PAR- 
FI Anni FERO 
FORMA LA COPPIA 
FORMULA 1—7 
FORMULA 1 


PRO 

7 

FORZA 4 

PRO 

PRO 

12 

FREQUENZA 

PPG 

PRO 

17 

GIOCO DEL 15 

PRO 

PRO 

3 

INIZI AL I Z E 

PRO 

PPG 

3 

LIST PRO 

SEQ 

PPG 

3E 

LIST VRB 

SEQ 

PRO 

1 3 

MASTER MINO 

PRO 

PRO 

“7 

1 

MEMO 

PRO 

PRO 

O* 

■2’ 

MGNGPOL I 

PRO 

PRO 

2 

MURO 

PRO 

PPG 

■? 

< 

ORARIO 

PPG 

PPG 

14 

GT HELLO 

PRO 

PRO 

12 

PAROLE CROCIATE 

PRO 

PRO 

1 1 

FARGLI AMO 

PPG 

PRO 

1 

PR*" 

SEQ 

PPG 

1 

PROVA 1 

SEQ 

PRO 

1 

PROVA LM 

PRO 

PRO 

*5 

PUZZLE 

PRO 

SEQ 

1 

RECORD C.C. 

SEQ 

PRO 

3 

RECORD F, 1 

SEQ 

PRO 

1 

RECORD VRM 

SEQ 

PRO 

2 

SCI 

P RG 

PRO 

1 

SCLM A 

PRO 

PRO 

I 

SCLM 

PRO 

PRO 

J. 

SEQ. READ. LM. 

PRO 

PRO 

1 

SIN. SCROLL 30000 

PRO 

PPG 



> 

PRO 
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3 

SKVSCRflPERS 

PRO 

o 

SGR-T-LM 

PRO 

13 

SUB- SORT LH 

FRA 

13 

SUB. SOFT. LH 

PRO 

4 

SUPER CARATTERI 

PF:G 

14 

TOMBOLA 

PRO 

19 

VERNINO 

PRO 


smimsm si 


FORZA 4 


FORZA 4 
FORZA 4 


01 GIOCHI BG 1983 
BG GIOCHI BG- 1981 




mmmàimmu tv\mmiH*mw¥ni*\ i»m 


F# 


FIAMMIFERO 

01 

G I QCH I 

BG 

1 983 

FORMA LA COPPIA 

01 

GIOCHI 

BG 

1 983 

FORMULA 1-? 

01 

GIOCHI 

BG 

1983 

FORMULA 1 

01 

G I OCH I 

BG 

1983 

FORZA 4 

01 

G I OCH 1 

BG 

1 983 

FREQUENZA 

01 

GIOCHI 

BG 

1 983 

FIAMMIFERO 

BG 

G I OCH I 

BG- 

1981 

FI ANCHE ITO DONNA 

BG 

G I OCH I 

BG. 

1981 

FORMA LR COPPIA 

BG 

GIOCHI 

BG. 

1381 

FORZA 4 

BG 

G I OCH I 

BG - 

1981 

FUCILE 

BG 

GIOCHI 

BG. 

1981 




81 BG 


z sMsaaaMi&asm*JUdmism 


01 

BG 


iwm 


GIOCHI BG 1983 
GIOCHI BG. 1981 


Computer Club - 73 





©■5 

■ i i" 


01 GIOCHI BO 
BG GIOCHI BG 
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- 3 2 
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01 GIOCHI BG 1983 
GIOCHI BG. 1931 


0 

1 

2 

3 

4 

5 
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8 
9 
H 
B 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
ri 

N 

o 

P 

Q 

R 

S 

T 

U 

V 
14 
X 

V 

7? 
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GP50A E GP50S 


le piccole stampanti per 
tutti i computer 






ISffiB 


Piccole e com- 
patte dalle pre- 
stazioni grandie 
generose, le 
GP50A e GP50S 
sono realizzate 
con standard pro- 
fessionali a misura 
di Personal e Home 
computer e sì impongono quale soluzio 
ne ottimale per gli usi hobbystici più di 


sparati a 
costi in- 
credibil- 
mente 
sorpren- 
denti. 
Particolare 
attenzione merita la 
GP50S, stampante direttamente inter- 
facciata verso i computer Sinclair ZX81 e 
Spectrum. 


Caratteristiche: 

• Stampante ad impatto a matrice di punti 
da 46 colonne (32 colonne versione 
GP50S) 

• Matrice di stampa 5x8 (7x7 versione 
GP50S) 

• Percorso di stampa monodirezionale (da 
sinistra a destra) 

• Capacità grafiche con indirizzamento dei 
singolo dot 

• Possibilità di ripetizione automatica di un 
carattere grafico 

• Velocità 40 caratteri/secondo (35 caratteri/ 
secondo versione GP50S) 


• Caratterizzazione: 12 api e relativo espanso 

• Interfacce; parallela Centronics (interfaccia 
Sinclair versione GP50S) 

• Alimentazione carta a frizione (largh. carta 
fino a 5”) 

• Stampa 1 originale e 1 copia 

• Set di 96 caratteri ASCII 

• Consumo 11W (stand by) o 17W (stampa) 

• Livello di rumore inferiore a 60 dB 

• Durata di vita testa: 30 milioni di caratteri 

• Peso 1,5 KG 

• Dimensioni: 215 (prof.) x 250 (largh.) x 85 
(alt.) mm. 

• Nastro nero (standard); optional : rosso, 
arancio, verde, blu, viola e marrone. 



FINALMENTE. 

LA TAVOLETTA GRAFICA A PIENE PRESTAZIONI 
AD UN PREZZO ACCESSIBILE A TUTTI 






La tavoletta grafica KOALA è la più simpatica innovazione nel campo dei personal 
computers. Con KOALA, controllate il vostro computer con un dito. Più veloce 

di un paddle, più versatile di un joystick e più 
semplice di una tastiera. 

La tavoletta grafica KOALA è compatibile 
con la maggior parte di software esistente 
e viene fornita completa 
del 


suo programma 
grafico 'Micro lllustrator 
KOALA-PAD è il miglior 
modo per creare 
immagini ad alta 
risoluzione con il vostro 
computer. 
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COMPUTER GRAPHICS DIVISION 

MILANO: Via L. do Vinci, 43 - 20090 Trezz aro S/N 
Tel. 02/4455741/2/3/4/5 - Tlx= TELINT I 312827 

ROMA: Via Soiaria. 1319 - 00136 Roma 

Tel. 06/691 7058-69' 931 2 -Tlx: TINTRO 1614381 




